Mh....
auch mal senfen....
NEVER use
Exit in your code! (Ich weiss, ist philosophisch und hart umstritten)
Abaenderung (sorry hab nur ne Koreanische Tastatur / kein Umlaute) der Funktion von Sharky.
Delphi-Quellcode:
function InArr(const val:Integer;arr:array of integer):Boolean;
var i:integer;
begin
result := false;
i := low(arr); // := 0;
while (not(result) and (i<=high(arr))) do begin result := result or (val=arr[i]); inc(i); end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
ar : array of integer;
begin
setlength(ar,65536); // es geht auch noch groesser!!!
for i := low(ar) to high(ar) do ar[i]:=random(MaxInt);
if InArr(random(MaxInt),ar) then Button1.Caption:='IN' else Button1.Caption:='NOT IN';
end;