Чтобы при выполнении длительного цикла другие приложения не подвисали

Delphi , Синтаксис , Циклы

Нужно вставить в тело цикла:

Application.ProcessMessages;

После этого даже само приложение, выполняющее цикл не будет виснуть. Например, по нажатию на кнопку напишите следующий код:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  randomize;
  for i:=0 to 50000000 do
  begin
    Form1.Caption := IntToStr(Random(5000));
    Application.ProcessMessages;
  end;
end;

Статья Чтобы при выполнении длительного цикла другие приложения не подвисали раздела Синтаксис Циклы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Циклы ::