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;