說完構造函數，再來看析構函數：

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方法執行完畢，所以一般來說，要讓你的線程能夠盡快終止，必須在Execute方法中在較短的時間內不斷地檢查Terminated標志，以便能及時地退出。這是設計線程代碼的一個很重要的原則！

當然如果你一定要能“立即”退出線程，那么TThread類不是一個好的選擇，因為如果用API強制終止線程的話，最終會導致TThread線程對象不能被正確釋放，在對象析構時出現access Violation。這種情況你只能用API或RTL函數來創建線程。

如果線程處于啟動掛起狀態，則將線程轉入運行狀態，然后調用WaitFor進行等待，其功能就是等待到線程結束后才繼續向下執行。關于WaitFor的實現，將放到后面說明。

線程結束后，關閉線程Handle（正常線程創建的情況下Handle都是存在的），釋放操作系統創建的線程對象。

然后調用TObject.Destroy釋放本對象，并釋放已經捕獲的異常對象，最后調用RemoveThread減小進程的線程數。

其它關于Suspend/Resume及線程優先級設置等方面，不是本文的重點，不再贅述。下面要討論的是本文的另兩個重點：Synchronize和WaitFor。

但是在介紹這兩個函數之前，需要先介紹另外兩個線程同步技術：事件和臨界區。

事件（Event）與Delphi中的事件有所不同。從本質上說，Event其實相當于一個全局的布爾變量。它有兩個賦值操作：Set和Reset，相當于把它設置為True或False。而檢查它的值是通過WaitFor操作進行。對應在Windows平臺上，是三個API函數：SetEvent、ResetEvent、WaitForSingleObject（實現WaitFor功能的API還有幾個，這是最簡單的一個）。

這三個都是原語，所以Event可以實現一般布爾變量不能實現的在多線程中的應用。Set和Reset的功能前面已經說過了，現在來說一下WaitFor的功能：

WaitFor的功能是檢查Event的狀態是否是Set狀態（相當于True），如果是則立即返回，如果不是，則等待它變為Set狀態，在等待期間，調用WaitFor的線程處于掛起狀態。另外WaitFor有一個參數用于超時設置，如果此參數為0，則不等待，立即返回Event的狀態，如果是INFINITE則無限等待，直到Set狀態發生，若是一個有限的數值，則等待相應的毫秒數后返回Event的狀態。

當Event從Reset狀態向Set狀態轉換時，喚醒其它由于WaitFor這個Event而掛起的線程，這就是它為什么叫Event的原因。所謂“事件”就是指“狀態的轉換”。通過Event可以在線程間傳遞這種“狀態轉換”信息。

當然用一個受保護（見下面的臨界區介紹）的布爾變量也能實現類似的功能，只要用一個循環檢查此布爾值的代碼來代替WaitFor即可。從功能上說完全沒有問題，但實際使用中就會發現，這樣的等待會占用大量的CPU資源，降低系統性能，影響到別的線程的執行速度，所以是不經濟的，有的時候甚至可能會有問題。所以不建議這樣用。

（待續）