Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Вниз
выход из цикла ??? Найти похожие ветки
← →
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;
← →
Palladin (2003-06-20 00:30) [6]тебя все ждали
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c