Hallo,
ich habe in meinem Projekt eine Basisklasse namens TNObject, von der verschiedene Klassen abgeleitet sind, z.B. TNObjDoor, TNObjNinja, TNObjDrone und einige andere. Das ganze sind Elemente eines Spiels (nicht von mir), für das ich einen Leveleditor schreibe. Nun will ich der Basisklasse TNObject eine Funktion hinzufügen, die einen Klon eines vorhandenen Objekts erzeugt.
Die soll so aussehen:
Delphi-Quellcode:
function TNObject.MakeClone: TNObject;
begin
result := <Klasse>.Create;
result.Assign(self);
end;
Das Problem ist, dass ich nicht weiß, wie ich <Klasse> herausbekomme. Ich hatte gehofft, hier
self einsetzen zu können, was aber leider nicht funktionierte (zerschossene Objekte etc, Zugriffsverletzungen etc).
ClassType funktioniert auch nicht, da der Compiler meldet, dass TObject und TNObject nicht kompatibel seien. Mit einem Typecast auf TNObject gibt es dann später Zugriffsverletzungen an verschiedenen Adressen nahe Adresse $00000000.
Wie macht man es richtig? Irgendwie muss das doch gehen
