Как грамотно прервать работу цикла ?

← →
Цикл (2002-05-14 10:23) [0]

Как грамотно прервать работу цикла по кнопке или по закрытию формы?
Например такого:
For i:=1 to 100000 do Begin {Мой оброботчик} end;

← →
Song © (2002-05-14 10:26) [1]

Break

← →
wicked © (2002-05-14 10:46) [2]

хех... грамотно...
в обработчике нажатия на кнопку выставляем флажок...
в цикле делаем application.processmessages и после этого проверяем значение флажка... если установлен - break и далее по тексту...
ну и, очевидно, не забываем сбрасывать флажок при начале работы... ;)

← →
Song © (2002-05-14 10:51) [3]

2wicked © (14.05.02 10:46)
хех... грамотно...
Это палка в мой огород? :-)

← →
wicked © (2002-05-14 11:03) [4]

2 Song ©
гы... "на воре шапка... " :))
отнюдь... это мой стиль...

← →
Цикл (2002-05-14 11:31) [5]

А пример можно ?

← →
Malder © (2002-05-14 11:48) [6]

Var Flag:Boolean; i:integer; ... Flag:=false; For i:=1 to 100000 do Begin Application.ProcessMessages; if Flag then Break; {Мой оброботчик} end;

В OnClose формы:

Flag:=true;

>>В OnClose формы: Flag:=true;

А зачем?

>А зачем?
А иначе когда же он true станет?
Ежели автор вопроса - начинающий, дополнительное пояснение: flag - не
локальная переменная метода, в котором крутится цикл, а либо глобальная,
либо поле или property класса-владельца метода.
Кроме того, использование метода ProcessMessages может сильно замедлить
выполнение цикла, иногда это критично. Я бы как альтернативу посоветовал
вынести цикл в отдельный thread, а ProcessMessages не использовать.

А.. понятно, не закроешь форму..

Как грамотно прервать работу цикла ? Найти похожие ветки