無限ループの終了方法

解決

でるでる 2007-01-10 13:09:56 No: 24430 IP: 192.*.*.*

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

編集削除

deldel 2007-01-10 15:56:48 No: 24431 IP: 192.*.*.*

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-10 16:23:39 No: 24432 IP: 192.*.*.*

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

編集削除