Compara Valores de Objetos de la misma clase

[Carmelo Cash]

Hola Foro:
Necesito comparar los valores que tengo en dos objetos de la misma clase.
Cuando traigo los datos de un cliente los guardo en dos objetos, Cliente y ClienteViejo, entonces me queda.

Cliente.Nombre:='pepe'
Cliente.Direccion:='cucha cucha 444'

ClienteViejo.Nombre:='pepe'
ClienteViejo.Direccion:='cucha cucha 444'

lo que necesito hacer al cerrar el formulario es algo como esto

if Cliente.ValoresdeTodosLosCampos<>ClienteViejo.ValoresdeTodosLosCampos then grabar;

De esta manera mando a grabar solamente si hubo una modificación en.

Eso es todo, desde ya gracias por su atención.

[delphi.com.ar]

Como opción rápida, se me ocurre que todos los campos de la clase lo tengas almacenados en un record, crear un método que sea "Compare", e internamete utilizar la función CompareMem para comparar los valores de los records.

Saludos!

[Neftali [Germán.Estévez]]

Lo que yo he hecho en algun caso similar a este es crear un método en la clase (en este caso cliente) que devuelve el objeto como string.

Código Delphi [-]
  Self.FAsString := Self.FCodigo + '|' + Self.FDireccion + '|' + ...

Utilizando un separador.
En mi caso me sirve para temas de Debug, de exportación y para cuestiones como estas. En ese caso vadría con hacer algo similar a esto.

Código Delphi [-]
  if (Cliente.AsString <> ClienteViejo.AsString) then begin 
    ...

No es nada muy sofisticado, pero a mi me funciona.

NOTA: En mi caso lo tengo a nivel de una clase Base que recorre todos los campos y hace la operación de concatenación, de forma que no se implementa en cada una de las clases, pero la idea es la misma.

Un saludo.

[[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.

[Carmelo Cash]

Quedó así, una función dentro del objeto que devuelve verdadero o false comparando todos los campos.

Código Delphi [-]
function tClientes.Equals(recDatos: tClientes): boolean;
begin
  result:=
  (self.Nombre = recDatos.Nombre) and
  (self.Direccion = recDatos.Direccion) ;
end;

-- Boton grabar --

Código Delphi [-]
if not ClienteActual.Equals(clienteViejo) then grabar;

Gracias a todos los que participaron.

[JoseAntonio]

En este caso si seria interesante usar las RTTI de delphi, aunque no soy un experto en el tema

[delphi.com.ar]

Empezado por JoseAntonio

En este caso si seria interesante usar las RTTI de delphi, aunque no soy un experto en el tema

El tema es decidir que propiedades evaluar y cuales no. Por otro lado puede ser mas práctico si lo implementamos muchas veces, pero poco perfrormante.

Saludos!

[roman]

Si estamos trabajado con objetos, ¿por qué no hacer algo así?

Código Delphi [-]
type
  TMiObjeto = class
  private

    FPropiedad: TTipoDeDatos;
    procedure SetPropiedad(Valor: TTipoDeDatos);

  public
    Modificado: Boolean;
    property Propiedad: TTipoDeDatos write SetPropiedad;
  end;

implementation

procedure TMibjeto.SetPropiedad(Valor: TTipoDeDatos);
begin
  FPropiedad := Valor;
  Modificado := true;
end;

Claro que hay que poner un método de acceso para cada propiedad (cosa que es bastante común) pero al final, la comprobación es tan sencilla como

Código Delphi [-]
if MiObjeto.Modificado then
  Grabar;

sin tener que comparar campo por campo.

--------------------------------------------------------------------------------------

Empezado por delphi.com.ar

que todos los campos de la clase lo tengas almacenados en un record, crear un método que sea "Compare", e internamete utilizar la función CompareMem para comparar los valores de los records.

Pero, ¿esto serviría si tenemos valores string? Es decir, creo que todos los valores que nos interesen para la comparación tendrían queser de longitud fija ¿no?

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

Si estamos trabajado con objetos, ¿por qué no hacer algo así

El problema que le veo a esto Román, es que sólo podemos comparar u objeto consigo mismo (por decirlo así), pero no nos serviría para comparar dos objetos distintos físicamente.

En el caso de Cliente y ClienteViejo, son dos objetos de la clase cliente distintos.

[roman]

Tienes razón Neftalí; es que me parece que en el fondo no me cuadra lo de usar dos objetos para lo mismo y subconcientemente lo omití Pero claro que bajo esas condiciones no aplica lo que digo.

// Saludos

[delphi.com.ar]

Empezado por roman

Pero, ¿esto serviría si tenemos valores string? Es decir, creo que todos los valores que nos interesen para la comparación tendrían queser de longitud fija ¿no?

Así es, creí haberlo aclarado .

Te dejo algo para marearse un ratito, cositas que hace el compilador:

Código Delphi [-]
type
  TData = record
    Field1: string;
    Field2: string
  end;
var
  D1, D2: TData;
begin
  D1.Field1 := 'Hola Mundo!';
  D1.Field2 := '123'; {Probar cambiando los valores, o tomandolos de un edit}

  D2.Field1 := 'Hola Mundo!';
  D2.Field2 := '123';

  Caption := IfThen(CompareMem(@D1, @D2, SizeOf(TData)), '=', '<>');

[[Crandel]]

Empezado por Carmelo Cash

-- Boton grabar --

Código Delphi [-]
if not ClienteActual.Equals(clienteViejo) then grabar;

Una sentencia equivalente a la que acabas de escribir pero usando el operador mismo seria asi:

Código Delphi [-]
if not (ClienteActual = clienteViejo) then grabar;

de esta misma forma puedes definir el operador <> y todos los restantes.

[[Crandel]]

y en el caso de registros mas complejos con varios atributos se puede aprovechar la excelente funcion CompareMem (gracias fede ya no me la acordaba)

entonces la definicion del operados Equal te queria asi:

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

y para el caso del operador <>

Código Delphi [-]
class operator TCliente.NotEqual( c1, c2 : TCliente): bool;
begin  
   Result := not (c1 = c2);
end;

nunca entendi porque este no es el efecto por defecto

y ahora si tienes exactamente la sentecia que querias arriba:

Código Delphi [-]
if ClienteActual <> clienteViejo then grabar;

[delphi.com.ar]

Empezado por Crandel

entonces la definicion del operados Equal te queria asi:

Solo si el record tiene valores de longitud fija, si tiene pascal strings, null terminated string NO, pero si en su lugar lo cambias por un array de chars estático, si!

Fíjate que pasa en el ejemplo que pasé si los valores no son cargados desde constantes, haciendo algo como esto:

Código Delphi [-]
  D1.Field2 := Edit1.Text;
  D2.Field2 := Edit2.Text;

[[Crandel]]

Empezado por delphi.com.ar

Solo si el record tiene valores de longitud fija, si tiene pascal strings, null terminated string NO, pero si en su lugar lo cambias por un array de chars estático, si!

POr eso digo no usar el CompareMem en este caso Eso me pasa por no seguir el hilo de la discución