Supports ohne out Parameter

[Uwe Raabe]

Zitat von shmia:

Teste mal das (Jugend forscht ):

Delphi-Quellcode:

if Assigned(TFirstSecond.GetInterfaceEntry(IFirst)) then
    Writeln('TFirstSecond supports Interface IFirst');

if Assigned(TFirstSecond.GetInterfaceEntry(ISecond)) then
    Writeln('TFirstSecond supports Interface ISecond');

Ja, und?