[gelöst] Unerlaubte Zeichen in String finden

[mm1256]

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;