Überprüfen ob ein String-Array ein gewisses Zeichen enthält

[Klaus01]

Delphi-Quellcode:

i:=low(array)
found := false;
while (not found) and (i <= high(array)) do
  begin
    found := array[i] = gesuchtesZeichen;
    inc(i);
  end;

Elegant genug?

Gut, wenn man noch ein Funktion (frei nach Beitrag #7) drumherumbasteln möchte:

Delphi-Quellcode:

function isCharIn(const CArray: Array of char; c : Char):boolean;
var
  i: Integer;
begin
  result := false;
  i := low(CArray)
  while (not result) and (i <= high(CArray)) do
  begin
    result := CArray[i] = c;
    inc(i);
  end;
end;

Grüße
Klaus