(Meine Delphi-Version: D7)
Hallo,
ich habe bei Euch die dpCollection
unit gefunden und bin sehr begeistert.
Dazu eine Frage: Kann ich auch ein CollectionItem so definieren, daß eine property des Items einen Verweis auf ein anderes beinhaltet? Und werden diese Verweise bei SaveToFile / LoadFromFile auch wieder richtig hergestellt?
Ein erster Versuch meinerseits hat NICHT geklappt (s.u.)
Gibt es da irgendeinen Trick?
Danke im Voraus,
Philipp
Delphi-Quellcode:
TmyCollectionItem = class(TCollectionItem)
private
fCaption: String;
fCrossReference: TmyCollectionItem;
public
procedure Assign(Source: TPersistent); override;
published
property Caption: String read fCaption write fCaption;
property CrossReference: TmyCollectionItem read fCrossReference write fCrossReference;
end;
und
Delphi-Quellcode:
{ TmyCollectionItem }
procedure TmyCollectionItem.Assign(Source: TPersistent);
begin
//Assign values
if Source is TmyCollectionItem then
begin
fCaption := TmyCollectionItem(Source).Caption;
fCrossReference := TmyCollectionItem(Source).CrossReference;
end
else
inherited Assign(Source);
end;