Ermitteln, ob ein Edit Sonderzeichen enthält?

[Andreas Käding]

Hallo!

Wie kann ich ermitteln, ob ein Edit Sonderzeichen enthält?

m.f.G. Andreas Käding

[Frank Kneffel]

Ich gehe mal davon aus, daß Du mit nicht Sonderzeichen Buchstaben und Zahlen meinst. Dann kannst Du es so machen.<br>
<pre>
function HatSonderzeichen(Str:string):Boolean;
type
TZahlen=set of '0'..'9';
TBuchstabengr=set of 'A'..'Z';
TBuchstabenkl=set of 'a'..'z';
var i:Integer;
Zahlen:TZahlen;
Buchstabengr:TBuchstabengr;
Buchstabenkl:TBuchstabenkl;
begin
Result:=False;
if str='' then
Exit;
for i:=1 to Length(str) do
begin
if (str[i] in Zahlen)
or(str[i] in Buchstabengr)
or(str[i] in Buchstabenkl) then
begin
Result:=True;
break;
end;
end;
end

[Der Boti]

Wenn du nach einem einzelnen, bestimmten Zeichen, z.B. dem Stern suchst, ist folgende Variante einfacher:<pre>
function HatStern(str: string): Boolean;
begin
Result := Pos('*', str) > 0;
end;</pre&gt