Zu unbekanntem Klassenderivat casten?

[Blup]

Die Bezeichnungen für CloneVariant und MetaClassVariant sind vertauscht.

In deiner Variante ohne Clone wird der falsche Konstruktor nähmlich immer der von TBasis aufgerufen (weil nicht virtuell).
Außerdem werden die Variablen der Kopie nicht mit den Werten des Orginals vorbelegt.

Die Klasse Abteilung hat 2 Variablen mit dem Namen "Test". Eine geerbte von TBasis und eine eigene.


Hier noch ein Vorschlag für die Clone-Variante:

Delphi-Quellcode:

type
  TBasis = class(TObject)
    constructor Create; virtual;
  protected
    FName String;
  public
    property Name: string read FName write FName;
    procedure Assign(AObject: TBasis); virtual;
    function Clone: TBasis; virtual;
  end;

  TAbleitung = class(TBasis)
  protected
    FFunktion: String;
  public
    property Funktion: string read FFunktion write FFunktion;
    procedure Assign(AObject: TBasis); override;
  end;

  TSonderAbteilung = class(TAbleitung)
    constructor Create; override;
  protected
    FSonderfunktion: string;
  public
    property Sonderfunktion: String read FSonderfunktion write FSonderfunktion;
    procedure Assign(AObject: TBasis); override;
  end;

constructor TBasis.Create;
begin
  showmessage('constructor TBasis für ' + ClassName);
end;

procedure TBasis.Assign(AObject: TBasis);
begin
  FName := AObject.Name;
end;

function TBasis.Clone: TBasis;
begin
  Result := ClassType.Create;
  Result.Assign(Self);
end;

procedure TAbleitung.Assign(AObject: TBasis);
begin
  inherited;
  if AObject is TAbleitung then
    FFunktion := TAbleitung(AObject).Funktion;
end;

constructor TSonderAbteilung.Create;
begin
  inherited;
  showmessage('constructor TSonderAbteilung für ' + ClassName);
end;

procedure TSonderAbteilung.Assign(AObject: TBasis);
begin
  inherited;
  if AObject is TSonderAbteilung then
    FSonderfunktion := TSonderAbteilung(AObject).Sonderfunktion;
end;