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 ?