Rechercher des caractères dans un string ?

Bonjour,

je voudrais tester la présence de certains caractères dans un string. J'utilise la fonction pos qui fonctionne très bien. Mais je voudrais optimiser l'écriture du code. En effet, je recherche des chaines du type :
sXe ou sXXe ou Sxe ou SXXe ou sXE ou sXXE ou ' Xe' ou ' XXe' ou ' XE' ou ' XXE' où X et XX sont des nombres

Pour l'instant j'ai une ligne if, avec une 20aine de "pos('',')>0 or ".
Peut-on faire plus court ?
Déjà si on pouvait ne pas tenir compte des minuscules/majuscule dans la fonction pos cela économiserait pas mal.

Merci pour votre aide.

Bonjour à toutes et à tous,

@ Davidmarli, peut être avec "AnsiIndexStr"

Ex :

Code:

---

1 2 3 4 5 6 7 8

if AnsiIndexStr ( _SEP, ['|','\','/',':',';',',','+']) >= 0 then BEGIN   ShowMessage('Caractère séparateur "' + _SEP + '" non autorisé dans le nommage d''un fichier');   Exit;   END;

---

@+,

Cincap

Salut

Citation:

---

si on pouvait ne pas tenir compte des minuscules/majuscule

---

"Uppercase" de la chaine ;)

il y a aussi la recherche par expression régulière RegEx

Code:

---

if TRegEx.IsMatch(Uppercase(MaChaine), 'X*E') then showmessage('Trouvé');

---

mais cela va dépendre de la version de Delphi .
A partir de laquelle RegEx existe ?

sinon , un peu de google et un exemple

[Edit]
:arf: je suis un idiot il suffisait de chercher dans la :faq: ici

Il existe une variante à AnsiIndexStr en insensible à casse AnsiIndexText

Mais, les expressions régulières pour ce type d'analyse semble plus approprié !