String in Set of Char umwandeln ?

[Martin K]

Moin,

ich habe einen Char und will überprüfen, ob dieser in einem String vorkommt oder nicht.
Natürlich könnte man in einer For-Schleife den String durchlaufen und mit if überprüfen...

Ich suche aber die einfachste Möglichkeit, etwa so:

Delphi-Quellcode:

var
  s: string;
  c: char;

{...}

  s := 'Hallo';

  if c in ['H', 'a', 'l', 'o'] then
  //...

Nur habe ich keine Ahnung, wie ich den String so umwandeln kann bzw. ob das überhaupt möglich ist.
Wenn's dafür eine ganz einfache Möglichkeit gibt (einfacher als For-Schleife) bitte sofort posten...

[sakura]

Zitat:

Zitat von Martin K

ich habe einen Char und will überprüfen, ob dieser in einem String vorkommt oder nicht.

Nutze die Funktion Pos ;)

Zitat:

Zitat von Martin K

Wenn's dafür eine ganz einfache Möglichkeit gibt (einfacher als For-Schleife) bitte sofort posten...

Nein, eine Schleife, ob for, repeat oder while, die wirst Du schon brauchen.

...:cat:...

[Neon-chan]

Pos ist doch einfacher als die Schleife (auch wenn Pos intern wohl auch nix anderes macht als den String durchlaufen^^)

[Martin K]

Ah, ja... Pos natürlich. :wall:
Ich habe allerdings noch mehrere Chars, die allerdings schon feststehen nur die des Strings sollen noch dazu kommen.

Etwa so:

Delphi-Quellcode:

if (c in ['0'..'9']) or (Pos(c,s) > 0) then

Ja, das wäre dann wohl die Lösung, da brauche ich auch keine For-Schleife.
Dachte nur irgendwie, ich könnte die einzelnen Zeichen des Strings an das Set of Char im ersten Teil der if-Abfrage dranhängen...
Aber das scheint dann wohl so einfacher zu sein...

//Edit:
Danke für eure Antworten!!!