Zeichenkette auf mehrere Zeichen überprüfen

davidbaumann · Beiträge: 39 Win XP D7PE

Hallo
Ich habe einen String. Jetzt will ich wissen, ob eines der folgenden Zeichen darin vorkommt:
\/:*?"<>|

Ich habe bereits gesucht. Mit vbs habe ich die Prüfung mit regex gemacht, leider gibt es das unter Delphi nicht (ich kann keine Fremdkomponente verwenden).

Wie überprüfe ich das am besten? Mit der Suche wurde ich nicht fündig...
Kann mir jemand dabei helfen? Es wäre relativ dringend, da ein Arbeitskollege beim Kunden vor Ort ist, deswegen schreibe ich hier in der Hoffnung dass mir jemand schnell helfen kann...

Vielen Dank schonmal,
Gruss David

jaenicke · Verfasst: Di 02.10.07 14:19

Wie wärs mit:

markieren

Delphi-Quelltext

1:
2:
3:

for i := 1 to Length(DeinString) do
  if DeinString[i] in ['a', '\', '-'] then
    ShowMessage('Zeichen erkannt an Position ' + IntToStr(i));

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme