Referzen in ein Stream speichern

[Geri]

Hallo Hagen

Vielen Dank für Deine Rückmeldung. Ich hoffe, du hast nach der langen Nach gut geschlafen

Wenn ich den Code betrachte, dann habe ich mehr und mehr das Gefühl, dass ich das in kurzer Zeit ohne lauffähiges Beispiel nicht umsetzen kann. Auf dieser Ebene bin ich eher Anwender und so wie es aussieht, bedarf es für diese Aufgabe scheinbar mehr Background-Wissen.

Was
function GetMyClass(const AClassName: String): TBaseClass; macht das kann ich mir vorstellen. Hier wird ein Klassenname übergeben und ich liefer den Type des entsprechenden Objektes zurück. Also z.B.

Delphi-Quellcode:

function GetMyClass(const AClassName: String): TBaseClass;
Begin
  if AClassName = 'TPOINT' then result:= TPOINT else
  if AClassName = 'TKANTE' then result:= TKANTE else
                                result:=nil;
End;

Bzgl. Ableiten von TPersistent:

Delphi-Quellcode:

type 
  TBase = class; 
  TBaseClass = class of TBase; 

  TPoint = class(TBase) 
  TKante = class(TBase)

TBase is ja bei die hier auch nicht von TPersistent abeleitet..?

Bei mir sehen die Klassen aktuell folgendermassen aus.

Delphi-Quellcode:

 type

  TMyBaseClass = class
  public
    Constructor Create();virtual;
    class function LoadFromStream(Stream: TStream):TMyBaseClass; virtual;
    procedure SaveToStream(Stream: TStream);
    procedure Write(Stream: TStream); dynamic;
    procedure Read(Stream: TStream); dynamic;
  end;

  TPoint = class(TMyBaseClass)
            public
              x,y:Integer;
              Constructor Create(mx,my:Integer);overload;virtual;
              Constructor Create();overload;override;
              procedure Write(S:TStream);override;
              procedure Read(S:TStream);override;
            end;

  TKante = class(TMyBaseClass)
            public
              P1,P2:TPoint;
              procedure Write(Stream: TStream);override;
              procedure Read(Stream: TStream);override;
              constructor Create(mP1,mP2:TPoint);overload;virtual;
              Constructor Create();overload; override;
          end;

wie ich nun

Delphi-Quellcode:

  TBase = class;
  TBaseClass = class of TBase;

einbauen muss..???

Bzgl.
procedure RegisterMyClasses(const AClasses: array of TBaseClass); ..ist mit auch nicht ganz klar was die macht.


Tja, ich komme so nicht weiter. Ich schaue mal weiter im Internet nach einem lauffähigen Beispiel. Vielleicht werde ich fündig.

Jedenfalls nochmals vielen Dank, dass du mir hier so nachhaltig weiter geholfen hast! Nun kenne ich mal die Richtung...

Geri