Serialisieren eines Objektes unter D7

[Mr_G]

Hier die definition des eigenen Typs aus meinem Testprojekt:

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;

Falls das ganze Projekt brauchst nur bescheid sagen ...