forum.boolean.name - [Error] 'END' expected but 'ELSE' found

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - [Error] 'END' expected but 'ELSE' found (http://forum.boolean.name/showthread.php?t=16668)

Nikopal

19.04.2012 21:31

[Error] 'END' expected but 'ELSE' found

:SOS: при компиляции пишет ошибку

[Error] Unit2.pas(145): 'END' expected but 'ELSE' found

PHP код:




procedure TForm2.Timer1Timer(Sender: TObject); 
 
begin 
 
for r:= 0 to WebBrowser1.OleObject.Document.All.Length - 1 do 
if Pos('Ìàòåðèàë óñïåøíî äîáàâëåí', WebBrowser1.OleObject.Document.All.Item(r).InnerText) <> 0 
then 
webbrowser1.Refresh; 
timer2.Interval:=1000; 
timer2.Enabled:=true; 
Timer1.Enabled:=false 
 else 
 
timer3.interval:=1000; 
timer3.Enabled:=true; 
Timer1.Enabled:=false; 
end;

HolyDel

19.04.2012 21:42

Ответ: [Error] 'END' expected but 'ELSE' found

Код:

procedure TForm2.Timer1Timer(Sender: TObject); 



begin 



for r:= 0 to WebBrowser1.OleObject.Document.All.Length - 1 do 

if Pos('Материал успешно добавлен', WebBrowser1.OleObject.Document.All.Item(r).InnerText) <> 0 

then begin

webbrowser1.Refresh; 

timer2.Interval:=1000; 

timer2.Enabled:=true; 

Timer1.Enabled:=false;end

 else 

begin

timer3.interval:=1000; 

timer3.Enabled:=true; 

Timer1.Enabled:=false; 

end;

Nikopal

19.04.2012 21:50

Ответ: [Error] 'END' expected but 'ELSE' found

спасибо, сработало... только ещё +1 енд в конце))))

Часовой пояс GMT +4, время: 17:21.