线程【六】线程安全退出

问题1：

一般来说，要让你的线程能够尽快终止，必须在Execute方法中在较短的时间内不断地检查Terminated标志，以便能及时地退出。这是设计线程代码的一个很重要的原则！

在这种情况下使用上述思路一般不会出什么问题！
type TThread1 = class(TThread) private procedure Test(); protected procedure Execute; override; end; procedure TThread1.Execute; var i:Integer; begin FreeOnTerminate := True;//线程正常结束后自动释放线程资源 For i:=0 to 1000 do begin if Terminated then break;//线程非正常结束时，遇到标识马上退出！ Test()//线程内的业务处理函数 end; end; procedure TForm1.FormDestroy(Sender: TObject); begin if Assigned(t1) then t1.Terminate;//在窗体关闭时做关闭标识 end;

 

问题2：

先玩把魔兽！