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

[shmia]

Wenn, dann aber gleich richtig.
Die Funktion liefert auch gleich die Info, an welcher Position sich der Suchwert befindet.

Delphi-Quellcode:

function FindInArray(value : Integer; Const a : Array of Integer):Integer; 
Var 
   i : Integer; 
Begin 
   For i := Low(a) to High(a) Do 
   Begin 
      If a[i] = value Then 
      Begin 
         Result := i;   //Treffer 
         Exit; 
      End; 
   End; 
   Result := -1; // nix gefunden 
End;

function IsInArray(value : Integer; Const a : Array of Integer):Boolean;
begin
   Result := (FindInArray(value, a) <> -1);
end;