[beantwortet] Best pratice: Klassen überspringen beim Vererben?

[Uwe Raabe]

Zitat von silver-moon-2000:

Delphi-Quellcode:

type TSaveHandler = class(TInterfacedObject, IMyInterface)
  protected
    procedure SaveFile; virtual; abstract;
    function getName2 : string; virtual; abstract;
  public
    function getType : THandlerType;
    function getName : string;
end;


procedure TSavehandler.getName : string;
begin
  Result := getName2;
end;

Warum deklarierst du nicht gleich getName als virtual-abstract? Der Umweg über getName2 ist doch gar nicht nötig.