Народ посоветуйте как сделать остановку программы

← →
Новичок1 © (2005-09-19 13:00) [0]

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

← →
TUser © (2005-09-19 13:09) [1]

1. Вытащить цикл в отд. поток и
procedure ButtonOnClick()
begin
Thread1.Terminate;
end;

2.
Flag:=false;
for i:= .... do
begin
if Flag then break;
dowork;
if i mod 100 = 0 then
Allpication.ProcessMessages;
end;

procedure BtnOnClick;
begn
Flag:=true;
end;

Вроде понял большое спасибо.

Народ посоветуйте как сделать остановку программы Найти похожие ветки