Скачать: CL | DM;

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

← →
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 ©   (2005-08-12 05:55) [4]

> Slym ©   (12.08.05 04:51)

Рационально - это когда то, что надо - там, где нужно.

---

← →
Slym ©   (2005-08-12 07:28) [5]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c