Serialisieren eines Objektes unter D7

[Mr_G]

Zitat:

... evt. muss Du für den
Zugriff noch auf Deinen TCollection Nachfahren casten.

Aha! :roll:
Wie macht man das?

[Jens Schumann]

Zitat:

Zitat von Mr_G

Zitat:

... evt. muss Du für den
Zugriff noch auf Deinen TCollection Nachfahren casten.

Aha! :roll:
Wie macht man das?

Code:

TMyCollection(CollectionItem.Collection).Irgendwas

[Mr_G]

Zitat:

TMyCollection(CollectionItem.Collection).Irgendwas

Das geht ja nicht!!!
Mein CollectionItem hat warum auch immer kein ".Collection"! :cry:

[Jens Schumann]

Zitat:

Zitat von Mr_G

Zitat:

TMyCollection(CollectionItem.Collection).Irgendwas

Das geht ja nicht!!!
Mein CollectionItem hat warum auch immer kein ".Collection"! :cry:

Dann ist Dein CollectionItem kein Nachfahre von TCollectionItem.

Zeig mal den Sourcecode

[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 ...

[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;

[Mr_G]

Dazu müsste man aber doch dann die Instanz kennen und das war ja mein Problem... ...oder verstehe ich da etwas falsch?

[Jens Schumann]

Zitat:

Zitat von Mr_G

Dazu müsste man aber doch dann die Instanz kennen und das war ja mein Problem... ...oder verstehe ich da etwas falsch?

Du verstehst Da etwas falsch.
Wenn Du zu einer TCollection ein TCollectionItem hinzufügst (Methode Add) wird automatisch
die Collection property des TCollectionItems gesetzt. Somit ist die Collection innerhalb des
TCollectionItems bekannt. Schau Dir doch mal den TCollection / TCollectionItem Sourcecode an.
Oder geh mal mit dem Debugger Schritt für Schritt das Hinzufügen eines TCollectionItems an.

[Mr_G]

Ok...! Ich habs! :thumb:

Ich bin eben einfach zu dumm für diese Welt! :wall: :wall: :wall:

P.S.: Danke für die unermüdliche Hilfe! :dp: