выход из цикла ???

← →
smolin (2003-06-19 11:28) [0]

Как сделать, чтоб в работающем цикле происходил опрос кнопок, т.е. цикл пересчитывает какие то значения, а при нажатии на какую нибудь кнопку происходит exit ??? (не получается т.к. пока цикл не завершится никакие кнопки не нажимаются).

← →
MBo © (2003-06-19 11:31) [1]

Application.ProcessMessages вставь

← →
panov © (2003-06-19 13:14) [2]

Как обычно - флажок.
for
...
if MyFlag then Exit;
...
end;

При клике на кнопку:

MyFlag := True;

← →
Polevi © (2003-06-19 13:39) [3]

>panov © (19.06.03 13:14)

+ MBo © (19.06.03 11:31)

← →
Anatoly Podgoretsky © (2003-06-19 13:42) [4]

+ Break - именно выход из цикла, а не процедуры.

← →
dtrn (2003-06-19 23:09) [5]

var
Mask:boolean;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I:integer;
begin
Mask:=FALSE;
for I:=1 to 100000 do
begin
Application.ProcessMessages;
Label1.Caption:= IntToStr(I);
if Mask then Exit;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Mask:=TRUE;
end;

тебя все ждали

выход из цикла ??? Найти похожие ветки