急、急、急！！

[mmxer]

各位大虾，请问如何在多层循环中添入语句，以减少资源的占用和防止停止响应，最好写上语句，50分酬谢。

[mmxer]

不行，一旦循环后，按纽根本停止响应。

[dprog]

改为多线程,就不会停止响应

[alin]

....
BreakFlag :=False;
while True do
Begin
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
...
while True do
Application.ProcessMessages;//让其它能使用
if BreakFlag then Break;
....
end;
end;
在其它地方，如一个按钮点击事件中跳出循环
BreakFlag :=True;//就OK了