Discussion :

[davidmarli]

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.

[cincap]

Bonjour à toutes et à tous,

@ Davidmarli, peut être avec "AnsiIndexStr"

Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

Salut

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]
je suis un idiot il suffisait de chercher dans la ici

[ShaiLeTroll]

Il existe une variante à AnsiIndexStr en insensible à casse AnsiIndexText

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