Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


AlexBo ©   (2005-08-11 11:50:00) 

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

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

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

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

While XXX do begin
YYY;
end;

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

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


Slym   (2005-08-12 07:28:00) [1]

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


KilkennyCat   (2005-08-12 05:55:00) [2]


> Slym ©   (12.08.05 04:51)

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


Slym   (2005-08-12 04:51:00) [3]

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


AlexBo   (2005-08-11 12:05:00) [4]

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


Digitman   (2005-08-11 11:56:00) [5]

XXX := True;

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

..

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо