Wert im Array finden?

[Jürgen Thomas]

Delphi-Quellcode:

function ByteArray_Contains( const arr: Array of Byte; const c: byte ): Boolean;
var i0: integer;
begin
  Result := false;
  i0 := Low(arr) - 1;
  while ( (not Result) and (i0 < High(arr)) )
  do begin
    Inc(i0);
    //  if (arr[i0] = c)
    //  then Result := true;
    //  [/edit] verkürzt wie folgt; das ist unproblematisch,
    //  weil nach positivem Result die Schleife beendet wird
    Result := arr[i0] = c;
  end;
end;

Ein Blick in die Delphi-Quelltexte (ab Pro mitgeliefert) zeigt, dass auch IndexOf-Funktionen meistens nichts anderes machen, als ein Array in einer Schleife zu durchlaufen.

Bitte nicht sauer sein: Ich arbeite zz. fast nur in C#; deshalb habe ich oben vielleicht eine Delphi-Schreibweise nicht korrekt eingetragen.

Vielleicht hilft's. Jürgen