delphi 跳出FOR循环

本文整理自网络，侵删。

 var 
bStop : Boolean; 

procedure TForm1.btnStartClick(Sender: TObject); 
var 
iLoop : Integer; 
begin 
bStop := False; 
for iLoop := 1 to 1000000000 do 
begin 
Application.ProcessMessages; 
if bStop then 
begin 
ShowMessage (Format('Stop at %d!', [iLoop])); 
break; 
end; 
end; 
end; 

procedure TForm1.btnStopClick(Sender: TObject); 
begin 
bStop := True; 
end; 

相关阅读 >>

Delphi 如何取得系统中的桌面的路径

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi 文件/流的加密解密方法

Delphi winapi: getwindowthreadprocessid - 获取指定窗口的进程 id 或线程 id

Delphi canvas.lineto 画线

Delphi xe7 up1 调用android振动功能

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 用sql语句添加删除修改字段

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi 检查用户输入必须是汉字串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 跳出FOR循环