Einzelnen Beitrag anzeigen

Phil73

Registriert seit: 1. Feb 2005
7 Beiträge
 
Delphi 7 Professional
 
#1

Querverweise zwischen TCollectionItems? (dpCollection)

  Alt 4. Apr 2006, 15:19
(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;
  Mit Zitat antworten Zitat