Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Delphi

Ответ
 
Опции темы
Старый 19.04.2012, 17:31   #1
Nikopal
Оператор ЭВМ
 
Регистрация: 28.03.2010
Сообщений: 34
Написано одно полезное сообщение
Сообщение [Error] 'END' expected but 'ELSE' found

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

[Error] Unit2.pas(145): 'END' expected but 'ELSE' found
procedure TForm2.Timer1Timer(SenderTObject);

begin

for r:= 0 to WebBrowser1.OleObject.Document.All.Length 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
(Offline)
 
Ответить с цитированием
Старый 19.04.2012, 17:42   #2
HolyDel
 
Регистрация: 25.09.2006
Сообщений: 6,030
Написано 1,469 полезных сообщений
(для 2,690 пользователей)
Ответ: [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;
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Nikopal (19.04.2012)
Старый 19.04.2012, 17:50   #3
Nikopal
Оператор ЭВМ
 
Регистрация: 28.03.2010
Сообщений: 34
Написано одно полезное сообщение
Ответ: [Error] 'END' expected but 'ELSE' found

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


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 01:29.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com