掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
無限ループの終了方法 (ID:24431)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.