2 Records vergleichen (Binärvergleich)

[hoika]

Hallo,
ich habe 4 Records

Rec1_1 und Rec1_2 sind vom TRec1, Rec2_1 und Rec2_2 sind vom TRec2.
Sie enthalten keine dynamischen Datentypen (also String oder dyn. Arrays).

Wie könnte ich jetzt Rec1_1 und Rec1_2 auf Gleichheit prüfen,
ohne die Datentypen zu kennen.
Das gleiche dann für die anderen beiden Rec2s.

Die Länge würdeich per SizeOf mitgeben.
function IsEqual(Pointer1, Pointer2, Length).

Ich müsste den Record also serialisieren, dann könnte ich einen Stream-Vergelcih machen.
nur wie serialisiere ich einen Record in einen ByteStream?


Jemand eine Idee?


Hm, dass könnte vielleicht klappen:
http://stackoverflow.com/questions/8...re-to-a-stream

[Neutral General]

CompareMem ist das einfachste

Edit: Wollte grad noch Code nachreichen und dann hab ich gesehn dass Uwe Raabe genau diesen schon gepostet hat.
Trotzdem mal eine alternative Version die evtl. etwas angenehmer aufzurufen ist:

Delphi-Quellcode:

function IsEqual(var Rec1; var Rec2; Size: Integer): Boolean;
begin
  Result := CompareMem(@Rec1, @Rec2, Size);
end;

[Uwe Raabe]

Was spricht gegen einen direkten Memory-Vergleich?

Delphi-Quellcode:

function IsEqual(Pointer1, Pointer2: Pointer; Size: Cardinal): Boolean; inline;
begin
  Result := CompareMem(Pointer1, Pointer2, Size);
end;

Oder direkt CompareMem verwenden.

Edit: Roter Kasten?