Остановка процедуры !!!

← →
Максим (2003-10-07 09:44) [0]

Как остановить процедуру по нажатию по клавише ESC ???

← →
BOA_KAA © (2003-10-07 09:48) [1]

Если именно процедуру, то запускать ее в отдельном потоке

← →
Максим (2003-10-07 09:50) [2]

нет вот смотри идет выполнение процедуры но в какойто момент небходимо нажать клавиши ESC и выполнение прекращается .....

← →
Yakudza © (2003-10-07 10:01) [3]

а что в процедуре ?

← →
Максим (2003-10-07 10:03) [4]

процедура выгружает данные в таблицу Excel ///////

Либо в основном цикле процедуры (а такой, судя по всему, должен быть) поставить проверку нажатия клавиши (например, она может выглядеть как сочетание Application.ProcessMessages и последующей проверки некоего флага, выставленного обработчиком соответствующего события (onKeyPress или onKeyDown), либо же, действительно, запускать процедуру в отдельном потоке, а из основного потока выставлять флаг (при таком подходе цикл работать будет быстрее). Но при данной задаче нельзя просто "убивать" поток с процедурой извне, так как она должна завершиться корректно.

var Stop: Boolean;
...
procedure XXX;
begin
Stop:=False;
...
if Stop then Exit;
...
end;

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