Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: 2 Records vergleichen (Binärvergleich)

  Alt 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)
  Mit Zitat antworten Zitat