Прерывание работы цикла по тпользователя

← →
Franzy © (2004-04-01 18:14) [0]

У меня в программе есть несколько длительных циклов вычислений. Необходимо предусмотреть возможность прерывания цикла по требованию пользователя (например, по нажатию ESC).
В простом паскале для этой цели была предусмотрена замечательная функция keypressed:

for...do
begin
if keypressed then ch:=Readkey;
case ch of...

end;

и все в таком духе. В дельфях такой функции нет. Пробовал реализовать событиями OnKeyDown, KeyPress... И с удивлением обнаружил, что обратка этих событий (если клавиши нажимаются во время работы цикла) происходит только по окончании работы цикла! То есть, когда уже не нужно! :(( Как быть?

← →
han_malign © (2004-04-01 18:16) [1]

>только по окончании работы цикла!
Application.ProcessMessages;

← →
Юрий Зотов © (2004-04-01 18:30) [2]

> И с удивлением обнаружил, что обратка этих событий (если
> клавиши нажимаются во время работы цикла) происходит только по
> окончании работы цикла!

Нажатие клавиши приводит к тому, что система помещает в очередь потока сообщение клавиатуры. Чтобы приложение об этом узнало и смогло это сообщение обработать, его надо выбрать из очереди - а пока в потоке работает цикл, никакие сообщения не выбираются и, соответственно, не обрабатываются. Что и дает обнаруженный Вами эффект.

Поэтому в цикл нужно вставить вызов Application.ProcessMessages - вот он-то и обработает сообщения из очереди (если они там есть), а после этого управление вернется в ту же точку цикла.

← →
Тимохов © (2004-04-01 18:31) [3]

чтобы следущий вопрос не был "Почему Дельфи такое ..., почему так медленно работает" рискну посоветовать далать Application.ProcessMessages не каждую итерацию цикла, раз в 100 раз, например - подбирается на основе опыта.

← →
Franzy © (2004-04-01 18:36) [4]

Благодарю. И это единственный способ?

простой? да.

> Franzy © (01.04.04 18:36) [4]

Более грамотный (но и более сложный) способ - вынести долгий цикл в дополнительный поток. Такой способ имеет смысл применять, когда Application.ProcessMessages по каким-то причинам не годится (например, сильно тормозит цикл даже если вызывать не на каждом проходе).

Прерывание работы цикла по тпользователя Найти похожие ветки