Interface referenzen auf gleichheit prüfen?

[negaH]

@Choose:

der Vergleich

Result := (myRefToAnInterface as IInterface) = (myRefToAnotherInterface as IInterface) ist nicht zwangsläufig durchführbar.
Angenommen:

Delphi-Quellcode:

  
  Result := (myRefToAnInterface as IInterface_A) = (myRefToAnotherInterface as IInterface_A)

und

type
  TClassBase = class(TInterfacedObject, IInterface_A)
  end;

  TClassA = class(TClassBase, IInterface_B)
  end;
  
  TClassB = class(TClassBase, IInterface_C)
  end;

dann würde obiger Vergleich TRUE liefern auch wenn man ein Object vom Typ TClassA mit TClassB vergleicht, denn beide basieren in ihrer Impelementierung von IInterface_A auf TClassBase. Man hätte also nur die Information das beide Objecte die IInterface_A Schnittstelle auf gleicher Basis impelemntiert haben. Da aber TClass_B zB. die Methoden von IInterface_A intern überschrieben haben können, wären auch untrschiedliche Implementierungen vom IINterface_A möglich. Der Vergleich würde als TRUE zurückliefern obwohl es sich a.) um unterschiedliche Klassen handelt und b.) deren Implementierungen unterschiedlich wären.

Somit wäre das Result TRUE logisch gesehen eine Falschaussage.

Gruß Hagen