Hey Hagen,
ich glaube, dass wir aneinander vorbeischreiben, vielleicht könnte Maximov an dieser Stelle seine Anfrage richtigstellen. Wenn ich ihn richtig verstanden habe, möchte er feststellen, ob es sich bei zwei Objekten, die sich hinter Interfacereferenzen unterschiedlichen Typs verbergen, um ein und dasselbe Exemplar (und damit implizit derselben Klasse, weil Delphi keine Mehrfahvererbung unterstützt) handelt.
Du, Hagen, scheinst jedoch zeigen zu wollen, ob die Klassen zweier Exemplare hinter zweier Interfacereferenzen und nur die Klassen identisch sind, ohne auf die Identität der Exemplare einzugehen.
Ohne Interfaces also
Delphi-Quellcode:
//prüfen, ob Objekte identisch
Result := AnObject = AnotherObject;
bzw.
Delphi-Quellcode:
//prüfen, ob Klassen identisch
Result := AnObject.ClassType = AnotherObject.ClassType;
Bitte korrigiere micht jemand, wenn ich falsch liege.