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