Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

Прерывание цикла   Найти похожие ветки 

← →
Alek Aaz   (2003-06-06 09:15) [0]

Кто нибудь подскажет как остановить цикл? Программа выполняет длинный цикл(заполняет базу). В цикле есть Application.ProcessMessage. Если пользователь нажал крестик на форме или клавишу ESC нужно явить запрос "точно хочешь прекратить работу Да/Нет" и собственно, если пользователь сказал угу остановить цикл и закрыть программу.

---

← →
Внук   (2003-06-06 09:23) [1]

StopFlag:=false;

while .... and not StopFlag do
begin
....
Application.ProcessMessages;
If StopFlag then break // необязательно
end;

OnCloseQuery:

if MessageBox(,"A you really sure....?",)=IDYES then StopFlag:=true;

---

← →
Caponid   (2003-06-06 10:22) [2]

Я привык таким пользоваться
repeat
if stopflag then Break
...
...
until false;

---

← →
Vulko   (2003-06-06 10:45) [3]

break, halt

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c