Arrays vergleichen

[sakura]

Ich falle immer wieder drauf rein Aus der Delphi Hilfe

Delphi-Quellcode:

function Equal(var Source, Dest; Size: Integer): Boolean;

type
  TBytes = array[0..MaxInt - 1] of Byte;
var
  N: Integer;
begin
  N := 0;
  while (N < Size) and (TBytes(Dest)[N] = TBytes(Source)[N]) do
    Inc(N);
  Equal := N = Size;
end;