Delphi中的容器類(13)

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

function TCarriageCollection.Add: TCarriageCollectionItem;
begin
　Result:=TCarriageCollectionItem(inherited Add);
end;

constructor TCarriageCollection.Create(ATrain: TTrain);
begin
　inherited Create(TCarriageCollectionItem);
　FTrain:=ATrain;
end;

function TCarriageCollection.GetItem(
　Index: Integer): TCarriageCollectionItem;
begin
　Result := TCarriageCollectionItem(inherited GetItem(Index));
end;

function TCarriageCollection.GetOwner: TPersistent;
begin
　Result:=FTrain;
end;

procedure TCarriageCollection.SetItem(Index: Integer;
　const Value: TCarriageCollectionItem);
begin
　inherited SetItem(Index, Value);
end;

其中Add,GetItem和SetItem都非常簡單，就是調用基類的方法，然後將基類的方法的返回結果重新映射為TCollectionItem類型。而構造函數中將TTrain組件作為父組件傳入，並重載GetOwner方法，返回TTrain組件，這樣處理的原因是IDE會在保存集合屬性時調用集合類的GetOwner確認屬性的父控件是誰，這樣才能把集合屬性寫到DFM文件中時，才能存放到正確的位置下面，建立正確的聚合關系。

而火車組件的實現也非常簡單，只要定義一個Published Carriages屬性就可以了，方法實現代碼如下：

constructor TTrain.Create(AOwner: TComponent);
begin
　inherited;
　FItems := TCarriageCollection.Create(Self);
end;

destructor TTrain.Destroy;
begin
　FItems.Free;
　inherited;
end;

procedure TTrain.SetItems(Value: TCarriageCollection);
begin
　FItems.Assign(Value);
end;