Mit CompareMem geht das recht einfach:
Delphi-Quellcode:
if CompareMem(obj1, obj1, obj1.InstanceSize) then
ShowMessage('Gleich');
Beachte, dass der Vergleich nur bitweise durchgeführt wird. Enthalten die Objekte Zeiger zu unterschiedlichen Speicherstrukturen, die die gleichen Daten enthalten, fällt der Vergleich dennoch negativ aus.
Das passiert u.a. auch bei langen Strings!