Hallo Zusammen!
Ich möchte in einer GlobalenListe einen Bezug vom Interface zu Klasse herstellen.
Delphi-Quellcode:
Unit MyFooImp;
Interface
Implementation
Uses MyContainer,MyInterfaces;
// Defionition von IFoo
Type
TFoo =
class(TInheritedObject,iFoo);
Procedure bla;
// bla bla
end;
Initialization
GlobalContainer.Registerclass<IFoo,TFoo>;
// Dictionary
end.
Um dann an einer anderen Stelle:
Delphi-Quellcode:
Procedure DoFoo;
var
Foo : IFoo;
begin
Foo := GlobalContainer.GetClass<IFoo>; // Result unterschiedlich IFoo & TObject
Foo.Bla;
end;
Bei der Formfactory war das irgentwie kein Problem mit der Class of TForm, aber hier bekomme ich es einfach nicht hin, aus
GlobalContainer.GetClass<IFoo> logisch
TFoo.Create zu machen.
Hat jemand ne Idee?