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