Экстренное завершение цикла

← →
Ryser (2002-10-05 16:53) [0]

Здравствуйте! Извините за ламерский вопрос, но...
Есть цикл, занимающий много времени (1 процедура). Необходимо на некоторое событие (2 процедура) его (цикл) завершить. Была идея использовать метки, но не получается обьявить глобальную метку. Посоветуйте, пожалуйста!

← →
Esu © (2002-10-05 16:55) [1]

Хм... break ? :)

← →
Suntechnic © (2002-10-05 18:57) [2]

Объявляешь флажок(глобальный или как атрибут класса). В первой процедуре регулярно проверяешь флажок и столь же регулярно вызываешь Application.ProcessMessages; Ну а по некому событию устанавливаешь этот флажок.

← →
alxx © (2002-10-05 20:21) [3]

А вообще, Thread надо использовать

← →
Rouse_ © (2002-10-05 20:34) [4]

Выход из процедуры Exit; это если у тебя несколько вложенных циклов и Break; не помогает, можно сделать еще выход по меткам, но это настолько всеми не приветствуется, что даже обьяснять не буду

Желаю успехов

как сказал Suntechnic :) делать так
.......
var
quit:boolean = FALSE;
.......
.......
procedure n1;
begin
quit:=FALSE;
while not quit do
begin
// какое-то действие
application.ProcessMessages
end;
end;
.......
.......
procedure n2;
begin
quit:=TRUE
end;

Цикл то у тебя какой?

Экстренное завершение цикла Найти похожие ветки