---

Hej

Er der nogen der ved hvordan man verificerer at et givent _TObject_
implementerer et givent interface?

/Claus

--
Claus Christiansen, <mailto:NOSPAM@unipeople.dk>, leave the adr. as it is
personal: <http://unipeople.dk/~cch>; pythia: <http://www.pythia.dk>
===========================================================--------------
"Computers are useless. They can only give you answers" - Pablo Picasso

---

Claus Christiansen wrote:

> Hej
>
> Er der nogen der ved hvordan man verificerer at et givent _TObject_
> implementerer et givent interface?
>
> /Claus
>

Søg i hjælpen på disse 3 metoder:

TObject.GetInterface
TObject.GetInterfaceEntry
TObject.GetInterfaceTable

når du ved hvordan disse virker, kan du bare spørge objektet.

En ikke-testet måde at gøre dette på, er følgende:

Function ImplementsInterface(Const O : TObject; Const G : TGuid) : Boolean;
Begin
Result := Assigned(O.GetInterfaceEntry(G));
End;

--
M.V.H
Christian Iversen