Stringfilter

[polarwolf]

Da du geschrieben hast Namensvorschriften. Ich habe es mal so probiert.

Delphi-Quellcode:

function Filter(text: string):Boolean;
var
  i:integer;
  Buchstabe:string;
begin
  result:=false;
  for i := 1 to Length(text) do
  begin
    Buchstabe:=(Copy  (text, i, 1));
    if Buchstabe  = 'Ä' then
    begin
      result:=true;
      break;
    end;
  end;
end;

Aufruf:

Filter(text); Wenn meine wege doch meistens umständlich sind. sie funktionieren wenigstens.
hat jemand dafür eine schönere Funktion ?