Compara Valores de Objetos de la misma clase

[[Crandel]]

Desde la version Delphi 2006 se ha incluido la sobrecarga de operadores. Lo que te permite definir la operación de igualación entre dos registros y verificar si son iguales.

Supongamos que tienes el registro TCliente

Código Delphi [-]
TCliente = record
  Nombre: string;
  Direccion: string;
end;

entonces sobrecargas el operados Equal para poder hacer comparaciones entre dos registros

Código Delphi [-]
TCliente = record
  Nombre: string;
  Direccion: string;

  class operator Equal( c1, c2 : TCliente): bool;
end;

y lo implementas asi:

Código Delphi [-]
class operator TCliente.Equal( c1, c2 : TCliente): bool;
begin  
   Result := (c1.Nombre = c2.Nombre)  and (c1.Direccion = c2.Direccion);
end;

* El codigo no lo he verificado en delphi asi que puede tener errores, pero es la idea.