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