Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Внизпрерывание цикла Найти похожие ветки
← →
Vitaly (2002-01-15 14:56) [4]т.е., например, так:
var endLoop: boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Enabled := false; // чтобы не вызывать
endLoop := false;
caption := "вошли в цикл";
while not endLoop do
application.ProcessMessages;
caption := "вышли из цикла";
button1.Enabled := true; // теперь можно
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
endLoop := true;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c