Problem: While Schleife

[LoCrux]

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;