Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
AW: 2 Records vergleichen (Binärvergleich)
17. Mär 2017, 11:32
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;
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
Geändert von Neutral General (17. Mär 2017 um 11:42 Uhr)
|