Das würde ich jetzt so verstehen.
Delphi-Quellcode:
type
IModelBaseIntf =
Interface
GUID.......
procedure MachWas;
end;
TModelBaseIntfClass =
class(TInterfacedObject, IModelIntf )
...
...
procedure MachWas;
end;
TEineAndereModellClass =
class(TInterfacedObject, IModelIntf )
...
...
procedure MachWas;
end;
TNochEineAndereModellClass =
class(TInterfacedObject, IModelIntf )
...
...
procedure MachWas;
end;
Ich könnte jetzt jede Klasse einsetzen, hätte aber ein anderes verhalten, wenn der Code in der Procedure MachWas anders ist.
Jetzt sehe ich auch eine Flexibilität.
Mfg
Didi