Экстренный выход из процедуры

← →
AlexBo (2005-08-11 11:50) [0]

Доброе время суток, многоуважаемый ALL!

Помогите, срочно надо, нету времени искать самостоятельно..

В процедуре надо предусмотреть экстренный выход по нажатию ESC.

Выполняетс цикл (очень долгий)

While XXX do begin
YYY;
end;

Подскажите плииз!

С уважением, Александр Бойко.

← →
Digitman © (2005-08-11 11:56) [1]

XXX := True;

While XXX do begin
YYY;
Application.ProcessMessages;
end;

..

в обработчике OnKeyPress формы :

Если НажатаКлавишаEsc То
XXX := False;

← →
AlexBo (2005-08-11 12:05) [2]

Digitman? ,Большое спасибо. Все получилось.

← →
Slym © (2005-08-12 04:51) [3]

Digitman © (11.08.05 11:56) [1]
и время цикла удвоилось... отдельный поток второе, более рациональное решение

KilkennyCat © (12.08.05 5:55) [4]
Рационально - это ВСЕГДА то что надо и там где нужно.
"А надо" - это использовать ограниченный и разделяемый ресурс (CPU time) минимально и соответственно не эгоистично

Экстренный выход из процедуры Найти похожие ветки