Hallo Tigü,
Danke für den Link.
Also ich verstehe das so.
Delphi-Quellcode:
type
IModelBaseIntf =
Interface
GUID.......
procedure MachWas;
end;
TModelBaseIntfClass =
class(TInterfacedObject, IModelIntf )
...
...
procedure MachWas;
end;
IModelIntf =
interface(IModelBaseIntf)
GUID.......
procedure MachWasAnderes;
end;
TModelIntfClass =
class(TModelBaseIntfClass , IModelIntf)
...
...
procedure MachWasAnderes;
end;
TPresenter =
class
IModelInterface : IModelBaseIntf;
constructor Create(ModelBaseIntf: IModelBaseIntf );
end;
var
Presenter: TPresenter;
Model: IModelIntf ;
begin
Model:= TModelIntfClass .Create;
Presenter:= TPresenter.Create( Model);
soweit so gut, wenn ich da immer noch den richtigen Gedanken hab, läst sich das Model jetzt austauschen wenns von IModelBaseIntf abgeleited wird.
Aber da muß ich doch im Presenter immer auf IModelIntf casten.
Und da seh ich dann keine Flexibilität. Oder hab ich das ganze doch falsch verstanden?
Mfg
Didi