Ver Mensaje Individual
  #4  
Antiguo 07-04-2009
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Reputación: 23
Crandel Va por buen camino
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.
__________________
[Crandel]
Responder Con Cita