無限ループの終了方法

解決

でるでる 2007-01-10 22:09:56 No: 24430

お世話になります。
無限ループの終了方法がわかりません。
While True do begin
Application.ProcessMeaasges;
end;
という記述で行っていますが、強制終了しないとできません。
この後どう記述すれば良いのかアドバイスを下さい！。

deldel 2007-01-11 00:56:48 No: 24431

private
ExitFlag: Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExitFlag := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('入った');

  ExitFlag := False;
  while True do begin
    Application.ProcessMessages;
    if ExitFlag then Break;
  end;

showmessage('出た');
end;

でるでる 2007-01-11 01:23:39 No: 24432

deldelさん、ありがとうございました。
無事、解決できました。