Objekt klonen?

[Namenloser]

Zitat von omata:

Vielleicht so...

Delphi-Quellcode:

function TNObject.MakeClone: TNObject;
begin
  Result:=TNObject(Self.ClassType.Create);
  Result.Assign(Self);
end;

var O, Oclone:TNObject;
begin
  O:=TNObjDoor.Create;
  Oclone:=O.MakeClone;
  ShowMessage(Oclone.ClassName);
end;

Verzwickterweise gibt dieser Test sogar das richtige aus, allerdings wird der falsche constructor aufgerufen, nämlich der von TNObject. Dadurch werden manche Werte nicht richtig initialisiert und es kracht.

@Pfoto:
Der Typecast auf eine "class of"-Klasse ist mir heute nacht im Bett auch noch eingefallen. Und siehe da, das klappt sogar!

Delphi-Quellcode:

TNObjectClass = class of tnobject;

...

function TNObject.MakeClone: TNObject;
begin
  result := TNObjectClass(ClassType).Create;
  result.Assign(self);
end;

Danke an alle!