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

[1234588]

Delphi-Quellcode:

function IsCharIn(const c: array of char; s: Char): Boolean;
var
  i: LongInt;
begin
  for i := low(c) to high(c) do
  begin
    IsCharIn := s = c[i];
    if IsCharIn then break;
  end;
end;

wuerde ich sogar noch eleganter finden :o)