Estimados amig@s,
Tengo una base de datos de clientes basada en un TStringList asociada a un TCliente en forma de record y necesito comparar 2 registros. Como son muchos campos, me pregunto si existe alguna forma de comparar 2 bloques de memoria de una sola vez o usando algún automatismo, sin necesidad de preguntar campo a campo, lo que resulta muy engorroso.
Ejemplo:
Contamos con un registro tipo cliente...
Código Delphi
[-]TCliente = Record
Campo1: String;
Campo2: Double;
Campo3: TdateTime;
end;
Function Es_Igual (A,B: TCliente): Boolean;
begin
A.Campo1 := 'Juan';
A.Campo2 := 1000;
B.Campo1 := 'Sebas';
B.Campo2 := 1000;
Result := CompareMem(@A, @B, SizeOf(TCliente));
end;
En fin, algo debo hacer mal!!
Saludos!
Silvestre