Problem: Arrays vergleichen

[Schlingel]

Hallo

Ich verzweifle an dem Problem zwei Arrays zu vergleichen.


Problemstellung:

Delphi-Quellcode:

send, receive : Bytes;
ist_gleich    : Boolean;
.
.
istgleich := (send = receive); // receive könnte nicht dimensioniert sein;

PS: Ich möchte aus Zeitgründen nich Byte für Byte vergleichen.


Danke

[Kroko1999]

sondern

[Kroko1999]

Delphi-Quellcode:

function VglArray (A,B: array of Bytes): Byte;
var
  I,L: Integer;
begin
  Result := True;
  L := Length(A);
  I := 0;
  if L=Length(B) then
    while I<L do
      if A[I]=B[I] then Inc (I)
      else 
        begin
          I := L;
          Result := False; 
        end;
  else Result := False;
end;