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

[stahli]

Meinst Du "Supports"?
(Ich glaube es nicht wirklich, aber die Fragestellung klingt ja eindeutig...)

Delphi-Quellcode:

Function DoBar(Const AFace : IInterface;Const AValue : String);
var
  lFoo1: IFoo1;
  lFoo2: IFoo2;
begin
  if Supports(AFace, IFoo1, lFoo1) then
    lFoo1.Bar(AValue);
  if Supports(AFace, IFoo2, lFoo2) then
    lFoo2.Bar(AValue);
end;

[Jumpy]

Geht das nicht mit Supports?

[Stevie]

Ich liebe Pseudo Code, der voll von Syntax errors ist

Wie schon gesagt, SysUtils.Supports.

Aber wäre durchaus mal ein Feature Request wert, den is Operator dahingehend zu erweitern, dass er das macht, was Supports macht.

[Mavarik]

Zitat von Stevie:

Ich liebe Pseudo Code, der voll von Syntax errors ist

Oje 3h Schlaf also doch zu wenig...

[himitsu]

Zitat von Stevie:

Aber wäre durchaus mal ein Feature Request wert, den is Operator dahingehend zu erweitern, dass er das macht, was Supports macht.

Der AS macht das ja inzwischen schon.