Compara Valores de Objetos de la misma clase

[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)), '=', '<>');