您正在看的DELPHI是:Delphi中的线程类。 中保存的FreeOnTerminate设置决定是否释放线程类，在线程类释放时，还有一些些操作，详见接下来的析构函数实现。

最后调用EndThread结束线程，返回线程返回值。

至此，线程完全结束。

 （待续）

 

Delphi中的线程类--之（3）
Delphi中的线程类--之（3）    Raptor（原作）  
  
关键字     Thread Event CriticalSection Synchronize 
  
Delphi中的线程类

猛禽[Mental Studio]

http://mental.mentsu.com

之三

说完构造函数，再来看析构函数：

destructor TThread.Destroy;
begin
  if (FThreadID <> 0) and not FFinished then
  begin
    Terminate;
    if FCreateSuspended then
      Resume;
    WaitFor;
  end;

  if FHandle <> 0 then CloseHandle(FHandle);
  inherited Destroy;
  FFatalException.Free;
  RemoveThread;
end;

在线程对象被释放前，首先要检查线程是否还在执行中，如果线程还在执行中（线程ID不为0，并且线程结束标志未设置），则调用Terminate过程结束线程。Terminate过程只是简单地设置线程类的Terminated标志，如下面的代码：

procedure TThread.Terminate;
begin
  FTerminated := True;
end;

所以线程仍然必须继续执行到正常结束后才行，而不是立即终止线程，这一点要注意。

在这里说一点题外话：很多人都问过我，如何才能“立即”终止线程（当然是指用TThread创建的线程）。结果当然是不行！终止线程的唯一办法就是让Execute