🚀 go-pugleaf

W dniu 2012-01-12 11:00, konsul41@wp.pl pisze:
> 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;
>

Zamiast takiej listy użyj gotowca, TInterfaceList. Ewentualnie go rozszerz.

>
> 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.
>
>
>

-- 
Arivald