TypeInfo über IID oder Klasse (und RTTI)

[negaH]

Delphi-Quellcode:

function Supports(const AClass: TClass; const IID: TGUID): Boolean; 
begin 
  Result := AClass.GetInterfaceEntry(IID) <> nil; 
end;

Super also so wie ich's oben schon benutzt hatte. Ich halte diese Implementation in D7 für schlecht bzw. nicht Bulletproof, es fehlt die Abfrage (AClass <> nil). (schonwieder haben die Borländer geschlafen, das nimmt mit jeder Delphi Version weiter zu)

Gruß Hagen