Problem: Arrays vergleichen

[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;