Klasse auf Interface testen

[shmia]

Anstelle von Supports kannst du auch mal GetInterfaceEntry versuchen.
Vorsicht, du bist dann nahe an den internen Datenstrukturen von Delphi.

Delphi-Quellcode:

if Assigned(self.GetInterfaceEntry(IMyInterface)) then
   DoSomethingElse;
if Assigned(self.GetInterfaceEntry(IMyOtherInterface)) then
   DoSomethingDifferent;

Aber wie schon himitsu geschrieben hat solltest du das nicht abfragen.