Objekt klonen?

[omata]

Vielleicht so...

Delphi-Quellcode:

type
  TNObject = class
  public
    function MakeClone:TNObject;
    procedure Assign(Obj:TNObject);
  end;

  TNObjDoor = class(TNObject)
  end;

  TNObjNinja = class(TNObject)
  end;

  TNObjDrone = class(TNObject)
  end;

:
:

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

Aufruf...

Delphi-Quellcode:

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