Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
2 / 2 / 1
Регистрация: 01.03.2011
Сообщений: 12
1

[DCC Error] Missing operator or semicolon

24.01.2012, 15:47. Показов 1523. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
type
        Stack = ^TStack;
        TStack = record
                key : integer;
                next : Stack;
        end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
        Form1: TForm1;
        s : Stack;
 
implementation
 
{$R *.dfm}
 
function Empty(s : stack) : boolean;
begin
        if s = nil then Empty := true
        else Empty := false;
end;
 
procedure push(var s : stack; key : integer);
var     p : stack;
begin
        new(p);
        p^.key:= key;
        p^.next := s;
        s := p;
end;
 
procedure pop(var s : stack);
var     p : stack;
begin
        if not Empty(s) then begin
                p := s;
                s := s^.next;
                dispose(p);
        end
        else
                ShowMessage('Stack is empty');
end;
 
function top(s : stack) : integer;
begin
        if not Empty(s) then begin
                top := s^.key;
        end
        else
                ShowMessage('Stack is empty');
end;
 
function Count(s : stack) : integer;
var     coun : integer;
begin
        coun := 0;
        while not Empty(s) do begin
                s := s^.next;
                coun := coun + 1;
        end;
        Count := coun;
end;
 
procedure PrintS(s : stack);
begin
        Form1.Edit1.Text := '';
        if Empty(s) then ShowMessage('Stack is empty')
        else
                while not Empty(s) do begin
                        Form1.Edit1.Text := Form1.Edit1.Text + IntToStr(s^.key) + ' ';
                        s := s^.next;
                end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var     filename : string;
        buf : string;
        ch : char;
        f: textfile;
begin
        s := nil;
        if OpenDialog1.Execute then filename := OpenDialog1.FileName;
        reset(f, filename);
        while not eof(f) do begin
                buf := '';
                while (not eof(f)) and (ch in ['0'..'9']) do begin
                        if (ch in ['0'..'9']) then buf := buf + ch;
                        read(f, ch);
                end;
                if (not eof(f))and (buf <>'') then push(s, StrToInt(buf));
 
                while (not eof(f)) and (not (ch in ['0'..'9'])) do
                        read(f, ch);
        end;
        closefile(f);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
        PrintS(s);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var k: integer;
begin
        Edit1.Text := '';
        //Edit1.Text := IntToStr(top(s));
        pop(s);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var     k: integer;
        str: string;
begin
        k := Count(s);
        str := IntToStr(Count(s));
        ShowMessage('Stack size : ' + str);
end;
 
end.
Этот код компилируется без ошибок и работает как должен. Но если В событии TForm1.Button3Click раскомментировать Edit1.Text := IntToStr(top(s)); появляется ошибка Missing operator or semicolon.
Помогите! Что не так?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2012, 15:47
Ответы с готовыми решениями:

[Error] Unit1.pas(81): Missing operator or semicolon
Здравствуйте! При компиляции программы возникает ошибка возле переменной Х0 Ошибка: ...

[Error] Unit1.pas(100): Missing operator or semicolon
procedure TForm1.Edit1Change(Sender: TObject); var s1,s2:string; begin ...

Ошибка: [Error] Unit1.pas(93): Missing operator or semicolon
Возможно кто-то может помочь, все перепробовал, не могу понят, в чем проблема!!! Выдает такую...

Ошибка [Error] Unit1.pas(47): Missing operator or semicolon
Как избавится от етой ошибки вот сам листинг unit Unit1; interface uses Windows,...

1
58 / 86 / 24
Регистрация: 27.02.2010
Сообщений: 397
24.01.2012, 17:49 2
Edit1.Text := IntToStr(Unit1.top(s));
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2012, 17:49
Помогаю со студенческими работами здесь

[Pascal Error] Pr2_4.dpr(18): E2066 Missing operator or semicolon
Всем привет! При запуске программы выдает 3 ошибки: Pr2_4.dpr(18): E2066 Missing operator or...

Клавиша Сохранить [Error] Unit2.pas(231): Missing operator or semicolon
Бьет вот такую ошибку Unit2.pas(231): Missing operator or semicolon ругается на строчку кода...

missing operator or semicolon
unit programma_zayti_v_rambler; interface uses Windows, Messages, SysUtils, Variants,...

Missing operator or semicolon
u:=pos('jpg',OpenPictureDialog1.FileName); u:=pos('jpeg',OpenPictureDialog1.FileName); if u&lt;&gt;0...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru