Serialisieren eines Objektes unter D7

[Jens Schumann]

Hallo,

Code:

type TPerson = class(TCollectionItem)
      private
        FName:String;
        FAlter:Integer;
      public
        procedure Assign(Source: TPersistent); override;
        procedure DoATest;
      published
        property Name: String read FName write FName;
        property Alter: Integer read FAlter write FAlter;
    end;
// Nehmen wir mal, Dein TCollection-Nachfahre wäre folgender

 TMyCollection = class(TCollection)
 public
   procedure DoSomething;
...

//Wenn Du innerhalb einer TPerson Methode auf Dein TMyCollection Objekt
// Zugreifen möchtest musst Du folgendes schreiben.

procedure TPerson.DoATest;
begin 
  TMyCollection(Collection).DoSomething;
end;