Question

delphi 向while循环发出中止

当点了在form1窗体里按钮，执行了while循环工作
while i<10000 then
begin
i:=i+1;
end;
，并show出form2窗体然后过五秒样子再点form2窗体按钮来中止form1窗体里的while循环再点form1窗体按钮弹出消息“完成”。

我不要通过关闭form1窗体进程方式，谁写出来这个代码来呢？

Answer 1

while i < 100000 do
begin
if not flag then break;
i := i + 1;
end;
在外部控制flag的值来控制退不退出循环

5秒钟就用个timer吧

Answer 2

在循环里加一个全局变量，通过if 全局变量控制 then break；

Answer 3

在FROM1里放个TTIME控件，写个ACTION事件就可以轻松完成了