怎样中止死循环？

Question

设置一个全局变量，一个子程序里面执行死循环时，当这个为false时，就执行死循环，true时就退出执行，在另一个子程序中，设置这个全局变量的值来中止这个死循环，但是，必须是多线程的情况下才可以的

Answer 1

循环的过程里 先检测某个标志 如：noloopif noloop then exit
else
begin
“死循环”
 application.processmessage; //一定要，不然无法相应消息。
end;button1里把 noloop:=true;另：补充一点，冷、热启动均可看帖子的标题，我给吓坏了。呵呵

Answer 2

多谢kmask(上上签) ！也谢谢其他几位！呵呵，没想到这个帖子标题还那么有杀伤力^_^