Einzelnen Beitrag anzeigen

mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
640 Beiträge
 
Delphi 10.1 Berlin Professional
 
#3

AW: Unerlaubte Zeichen in String finden

  Alt 15. Feb 2015, 21:32
yupp

Delphi-Quellcode:
function HatStringSonderzeichen(Value: string): boolean;
var
  i: integer;
begin
  Result := false;
  for i := 1 to Length(Value) do
  if not CharInSet(Value[i], ['0'..'9','a'..'z','A'..'Z',' ','-','_'])
  then Exit(True);
end;
Gruss Otto
Wenn du mit Gott reden willst, dann bete.
Wenn du ihn treffen willst, schreib bei Tempo 220 eine SMS
  Mit Zitat antworten Zitat