在調試器中，Named Thread 的處理器期待 FName 成員是 ANSI 字符，不是 Unicode，所以上面的聲明必須改成下面這樣：typeTThr

其他需要注意的代碼：AllocMem(AnsiCharof AnsiCharAnsiStringof CharCopy(GetMem(Length(PAnsi

加入如下代碼：NMHTTP1.InputFileMode := ture;NMHTTP1.Body := 本地文件名;NMHTTP1.Header := He

TObjectList 類TObjectList 類直接從TList 類繼承，可以作為對象的容器。TObjectList類定義如下：　TObjectList

TObjectStack和TObjectQueue類Contnrs單元中最後兩個類是TObjectStack和TObjectQueue類，類的定義如下：TOb

擴展TList，限制類型的對象列表　Begin Listing Two - TMyObjectListTMyObject = class(TObject)pu

TStrings類出於效率的考慮，Delphi並沒有象C++和Java那樣將字符串定義為類，因此TList本身不能直接存儲字符串，而字符串列表又是使用非常廣泛

同對象關聯前面說了我們可以將字符串同對象綁定起來，我們可以使用AddObject或者InsertObject方法向列表添加同字符串關聯的對象，也可以通過Obj

可以看到TListBoxStrings在內部並沒有保存添加的字符串，而是直接向Windows的原生列表盒控件發送消息實現的代碼添加，而Windows的原生列表

THashedStringList類一般來說，通過鍵來查找值最簡單的辦法是遍歷列表對列表中的鍵進行比較，如果相等則獲取相應的鍵值。但是這種簡單的辦法也是效率最

它可以按位儲存布爾值，因此可以看成是一個原生的Boolean值的容器類，但是它缺少列表類的很多方法和特性，不能算是一個完整的容器，因此我們稱它為擬容器類。在我

TCollection類是一個比較復雜特殊的容器類。但是初看上去，它就是一個TCollectionItem對象的容器類，同列表類TList類似，TCollec

其中車廂類的定義非常簡單，只是定義了四個屬性。而車廂集合類重定義了靜態的Add方法以及Items屬性，其返回結果類型改為了TCarriageCollectio

下面將我們的組件注冊到系統面板上之後，就可以在窗體上放上一個TTrain組件，然後然後選中Object Inspector，然後雙擊Carriages屬性，會

保存一下文件，使用VIEw As Text右鍵菜單命令察看一下DFM文件，我們會看到我們設計的車廂類的屬性確實都被寫到了DFM文件中，並且Carriages屬

4、上下Panel添加 OnDockDrop、OnDockOver、OnUnDock事件如下：procedure TfrmMain.pnlBottomUnDo

窗體文件:object　Form1:　TForm1　Left　=　0　Top　=　0　Caption　=　Form1　ClIEntHeight　=　127　C

為什麼DBName的值會丟掉呢？原來在是因為在ConnectTo中，調用了SetComplete方法，SetComplete方法認為這個COM+已經完成了任務

窗體文件:object　Form1:　TForm1　Left　=　0　Top　=　0　Caption　=　Form1　ClIEntHeight　=　231　C

現在我確定思路：首先創建一個互斥對象，如果創建成功（CreateMutex返回值不為NULL）並調用GetLastError函數返回ERROR_ALREADY