Hier noch etwas allgemeines, aus meiner Funktionskiste:
Delphi-Quellcode:
function IsValidStr(s: String): Boolean;
const
ValidChars = ['0'..'9', 'A'..'Z', 'a'..'z'];
var
i: Integer;
begin
Result := False;
if Length(s) < 1 then Exit;
for i := 1 to Length(s) do
if not (s[i] in ValidChars) then Exit;
Result := True;
end;
Welche Zeichen erlaubt sind steht in ValidChars.