Delphi中的线程类--之（3）

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

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，并且线程结束标志未设置），则调用