Problem mit For... to... do... und Integer Array

[Binärbaum]

Änder mal den Code ein wenig:

Delphi-Quellcode:

function IsInArray(navindex:integer; const a:array of Integer):Boolean;
var
   i : integer;
begin
   for i := 0 to High(a) do
   begin
      if (a[i] = navindex) then
      begin
         Result := true;   //Treffer
         Exit;
      end;
   end;
   Result := false; // nix gefunden
end;

Wahrscheinlich liegts an der Klammerung im if..then, ist aber nur eine Vermutung.

MfG
Binärbaum