UC知道delphi 向while循环发出中止
来源：百度知道 编辑：UC知道 时间：2024/09/22 09:40:19
当点了在form1窗体里按钮，执行了while循环工作
while i<10000 then
begin
i:=i+1;
end;
，并show出form2窗体然后过五秒样子再点form2窗体按钮来中止form1窗体里的while循环再点form1窗体按钮弹出消息“完成”。
我不要通过关闭form1窗体进程方式，谁写出来这个代码来呢？
while i<10000 then
begin
i:=i+1;
end;
，并show出form2窗体然后过五秒样子再点form2窗体按钮来中止form1窗体里的while循环再点form1窗体按钮弹出消息“完成”。
我不要通过关闭form1窗体进程方式，谁写出来这个代码来呢？
while i < 100000 do
begin
if not flag then break;
i := i + 1;
end;
在外部控制flag的值来控制退不退出循环
5秒钟就用个timer吧
在循环里加一个全局变量，通过if 全局变量控制 then break；
在FROM1里放个TTIME控件，写个ACTION事件就可以轻松完成了