[gelöst] Unerlaubte Zeichen in String finden

[Kralle]

Moin,

Zitat von 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;

Ich habe mich für diesen Weg entschieden.
Es hat einen Moment gedauert bis mir aufging, das ich die Dateiendung incl. Punkt vorher entfernen muß

Danke, für Eure Hilfe.

Gruß HEiko