Richtige Objekt-Kopie? Aber wie?

[marabu]

Hallo ihr beiden,

am Code von Uli sticht mir der statische Konstruktor ins Auge. Um auf TParameterBase aufbauende Klassen in einer Factory einsetzen zu können ist der virtuelle Konstruktor mit gleichbleibender Signatur gefragt. Hier nur grob skizziert - die Übertragung auf eine Methode statt einer stand-alone function dürfte nicht schwer fallen:

Delphi-Quellcode:

type
  TParameterBase = class
  public
    constructor Create; virtual;
  end;

  TParameter = class(TParameterBase)
  public
    constructor Create; override;
  end;

  TParameterBaseClass = class of TParameterBase;


function Clone(p: TParameterBase): TParameterBase;
begin
  Result := TParameterBaseClass(p.ClassType).Create;
  Result.Assign(p);
end;

Dass der gewünschte Konstruktor bei Christians Versuch mit ClassType.Create nicht ausgeführt wird liegt daran, dass mit diesem Aufruf nur der statische Konstruktor von TObject errreicht wird. Das sollte im direkten Vergleich mit dem Code aus meiner Beispiel-Funktion klar werden.

Freundliche Grüße vom marabu