Ach noch eins. Wenn wir schon bei dem Thema sind.
Ist es sinnvoll, alle Methoden auf die gleiche Methode umzubiegen wenn alle das gleiche ausführen sollen? Also in etwa so?
Delphi-Quellcode:
unit Unit24;
interface
type
IInterface1 =
interface
function Init: Boolean;
stdcall;
end;
IInterface2 =
interface
function Init: Boolean;
stdcall;
end;
IInterface3 =
interface
function Init: Boolean;
stdcall;
end;
TTestClass =
class(TInterfacedObject, IInterface1, IInterface2, IInterface3)
private
function DoInit: Boolean;
stdcall;
public
function IInterface1.Init = DoInit;
function IInterface2.Init = DoInit;
function IInterface3.Init = DoInit;
end;
Theoretisch könnte man dann auch ein Basis-Interface machen, aber in dem Fall habe ich das nicht. Könnte ich theoretisch mal noch umbauen. Aber nur so aus Prinzip. Gibt es hier irgendwelche Nachteile? Kompilieren tut es nämlich.