🚀 go-pugleaf

Delphi XE

Robię coś w rodzaju rozszeżenia możliwości

type
  IObiekt = interface;

  //interfejs przechowujący zarejestrowane kontrolki - lista 
zarejestrowanych kontolek
  IListaObiektow = interface
    function GetIObiekt(index : Integer): IObiekt;
    function FindIObiekt(GUID : TGUID): IObiekt; overload;
    function FindIObiekt(GUID : String): IObiekt; overload;
    function AddIObiekt(obiekt : IObiekt):boolean;
    procedure DeleteIObiekt(GUID : TGUID); overload;
    procedure DeleteIObiekt(GUID : String); overload;
    property Interfejs[index : Integer]: IObiekt read GetIObiekt;
  end;


  //Interfejs podstawowy dla wszystkich obiektów kontrolek
  IObiekt = interface
    ['{B53C6B06-9968-4170-8A2C-977A4ABEF423}']
    function GetLeft(): Integer;
    ...
    property Typ     : String read GetTyp write SetTyp;
  end;



TListaObiektow= class(TComponent,IListaObiektow)

  private
    Interfejsy : array of IObiekt;
  public
    constructor Create(AOwner: TComponent); Override;
    function GetIObiekt(index : Integer): IObiekt;
    function FindIObiekt(GUID : TGUID): IObiekt; overload;
    function FindIObiekt(GUID : String): IObiekt; overload;
    function AddIObiekt(obiekt : IObiekt):boolean;
    procedure DeleteIObiekt(GUID : TGUID); overload;
    procedure DeleteIObiekt(GUID : String); overload;
  end;


Pytanie czy w ten sposób można przechowywać interfejsy?

Planuję zrobić to w ten sposób:
TListaObiektow wczytuje interfejsy z dll , i jeżeli takiego interfejsu nie 
ma to tworzy nowy.
Następnie Gdy potzebny jest interfejs to TListaObiektow wywołuje interfejs 
udostępniając mu dane, ten je obrabia i wykonuje inne rzeczy itd...
Kończy działanie i czeka na następne wywołanie.

TListaObiektow nie zna całości interfejsu z dll wie tylko że ten jest 
potomkiem  IObiekt .


Pytanie 2 czy to będzie dobrze działać, kluczowe jest to że TListaObiektow 
ma nie znać implementacji interfejsu w dll i ma tylko przechowywać 
interfejs.