String auf Gültigkeit prüfen

[himitsu]

hier mal Möglichkeiten für abcdefghijklmnopqrstuvwxyz-.1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ

Delphi-Quellcode:

for i := 1 to length(s) do
  if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '-', '.']) then s[i] := '_';

for i := length(s) downto 1 do
  if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '-', '.']) then delete(s, i, 1);