Vererbung und klassenspezifische Methoden

**SProske**

Ich habe eine Grundklasse, von der mehrere Klassen abgeleitet sind. Diese Grundklasse stellt einen Konstruktor zur Verfügung, um eine neue Instanz mit gleichen Eigenschaften zu erzeugen. Außerdem eine Methode um die Eigenschaften zu kopieren.

In der abgeleiteten Klasse verwende ich dann diesen Konstruktor.

zusammenfalten · markieren

Delphi-Quellcode:

			interface

type

  TBaseClass = class

  strict protected

  public

    constructor CreateAsCopy(const aFrom: TBaseClass);virtual;

    procedure AssignProps(const aFrom: TBaseClass);virtual;

  end;

  TAdvancedClass = class(TBaseClass)

  strict protected

    FName: string;

  public

    property Name: string read FName write FName;

    procedure AssignProps(const aFrom: TBaseClass);override;

  end;

implementation

procedure TBaseClass.AssignProps(const aFrom: TBaseClass);

begin

  //

end;

constructor TBaseClass.CreateAsCopy(const aFrom: TBaseClass);

begin

  AssignProps(aFrom);

end;

procedure TAdvancedClass.AssignProps(const aFrom: TBaseClass);

begin

  inherited AssignProps(aFrom);

  FName := TAdvancedClass(aFrom).Name;

end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

			var

  F1, F2: TAdvancedClass;

begin

  F1 := TAdvancedClass.Create;

  try

    F1.Name := 'Test';

    F2 := TAdvancedClass.CreateAsCopy(F1);

    try

      Writeln(F2.Name);

      ReadLn;

    finally

      F2.Free;

    end;

  finally

    F1.Free;

  end;

end.

Das funktioniert soweit, mir wird korrekterweise Test ausgegeben. Allerdings sind mir die expliziten Type-Casts in AssignProps ein Dorn im Auge. Lieber hätte ich es so:

zusammenfalten · markieren

Delphi-Quellcode:

			TAdvancedClass = class(TBaseClass)

  strict protected

    FName: string;

  public

    property Name: string read FName write FName;

    procedure AssignProps(const aFrom: TAdvancedClass);reintroduce;

  end;

procedure TAdvancedClass.AssignProps(const aFrom: TAdvancedClass);

begin

  inherited AssignProps(aFrom);

  FName := aFrom.Name;

end;

Dann erhalte ich aber als Ausgabe nicht mehr 'Test', sondern einen Leerstring. Wie kann ich es so anpassen, dass in meiner abgeleiteten Klasse ein "AssignProps" zur Verfügung habe, dass auch mit dieser Klasse funktioniert - und nicht mit der Grundklasse und dann Type-Casts auf die abgeleitete?

PS: Die Überschrift gefällt mir selber nicht, etwas besseres ist mir aber auch nicht wirklich eingefallen.

Vererbung und klassenspezifische Methoden

Vererbung und klassenspezifische Methoden

Forumregeln