String auf Gültigkeit prüfen

[emsländer]

Wie kann ich einen String auf gültige Zeichen prüfen, bzw. ungültige einfach weglassen.?

Die Menge der gültigen Zeichen wäre:

abcdefghijklmnopqrstuvwxyzäöüß-.1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ!§$%&/()

Ich möchte eine Funktion bauen, die mir einen korrigierten String zurückgibt.


Gruss

EL

[Aenogym]

Delphi-Quellcode:

function CheckIt(AText: string): boolean;
var i: integer;
begin
  result := true;

  for i:=1 to length(AText) do
  begin
   if not (AText[i] in ['a'..'z']) then  //menge entsprechend anpassen
   begin
     result := false;
     break;
   end:
  end;
end;

würd mir spontan einfallen dazu

aeno

edit: sorry, hab zu spät gelesen, dass du einen korrigierten string haben möchtest. inwiefern korrigiert? ungültige zeichen löschen?

[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);

[emsländer]

Vielen Dank!

Gruss

EL