Vererbung bei Implementierung eines Interfaces

[bernhard_LA]

bin mir gar nicht sicher ob ich override & virtual überhaupt benötige - das verschieben von gemeinsamen Funktionen in eine Root Klasse scheint zu funktionieren

Delphi-Quellcode:

IMyInterface = interface
['{someGUID}']
  procedure MySharedProcedure;
  procedure MyFirstProcedure;
end;

TMyClass = class(TInterfacedObject)
  private
    procedure MySharedProcedure; 
end;

TMyFirstDerivedClass = class(TMyClass, IMyInterface)
  private
    procedure MyFirstProcedure; 
end;

TMySecondDerivedClass = class(TMyClass, IMyInterface)
  private
    procedure MyFirstProcedure;
end;