Delphi中的容器類(12)

TCollection類是一個比較復雜特殊的容器類。但是初看上去，它就是一個TCollectionItem對象的容器類，同列表類TList類似，TCollection類也維護一個TCollectionItem對象索引數組，Count屬性表示容器中包含的TCollectionItem的數目，同時也提供了Add和Delete方法來添加和刪除TCollectionItem對象以及通過下標存取TCollectionItem的屬性。看上去和容器類區別不大，但是在VCL內部用於保存和加載組件的TReader和TWriter類提供了兩個特殊的方法WriteCollection和ReadCollection用於加載和保存TCollection類型的集合屬性。IDE就是通過這兩個方法實現對TCollection類型屬性的可持續性。

假設現在需要設計一個火車組件TTrain，TTrain組件有一個TCollection類型的屬性Carriages表示多節車廂構成的集合屬性，每個車廂則對應於集合屬性的元素，從TCollectionItem類繼承，有車廂號，車廂類型（臥鋪，還是硬座），車廂座位數，車廂服務員名稱等屬性，下面是我設計的組件的接口：

type
　//車廂類型，硬座、臥鋪
　TCarriageType = (ctHard, ctSleeper);
　//車廂類
　TCarriageCollectionItem = class(TCollectionItem)
…
　published
　　//車廂號碼
property CarriageNum: Integer read FCarriageNum write FCarriageNum;
//座位數
property SeatCount: Integer read FSeatCount write FSeatCount;
//車廂類型
property CarriageType: TCarriageType read FCarriageType write FCarriageType;
//服務員名稱
　　property ServerName: string read FServerName write FServerName;
　end;
　TTrain=class;
　//車廂容器屬性類　
　TCarriageCollection = class(TCollection)
　private
　　FTrain:TTrain;
　　function GetItem(Index: Integer): TCarriageCollectionItem;
　　procedure SetItem(Index: Integer; const Value: TCarriageCollectionItem);
　protected
　　function GetOwner: TPersistent; override;
　public
　　constructor Create(ATrain: TTrain);
　　function Add: TCarriageCollectionItem;
property Items[Index: Integer]: TCarriageCollectionItem read GetItem
write SetItem; default;
　end;
　//火車類
　TTrain = class(TComponent)
　private
　　FItems: TCarriageCollection;
　　procedure SetItems(Value: TCarriageCollection);
　public
　　constructor Create(AOwner: TComponent); override;
　　destructor Destroy; override;
　published
　　property Carriages: TCarriageCollection　read FItems write SetItems;
　end;