Interfaces vergleichen...

[Mavarik]

Hallo Zusammen!

Gibt es eine Möglichkeit eine Interface-Referencen zu vergleichen?
So wie in TObject is TEdit ...

Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

type
  IFoo1 = Interface
    ['{171A69B8-DF63-4E32-9431-8915EEAA2833}']
    Function Bar(Const AValue : String);
  end;

  IFoo2 = Interface
    ['{4F32C2C0-972F-45F0-9A7E-8FC18A2105D7}']
    Function Bar(Const AValue : String);
  end;

Procedure DoBar(Const AFace : IInterface;Const AValue : String);

implementation

Procedure  DoBar(Const AFace : IInterface;Const AValue : String);
begin
  if AFace = IFoo1 
    then (AFace as IFoo1).Bar(AValue)
    else (AFace as IFoo2).Bar(AValue);
end;

end.

Vielleicht stehe ich auch auf dem Schlauch.. (Generics fällt aus D2007)

Mavarik