Discussion :

[titou31000]

Bonjour à tous,

est-ce que vous savez s'il existe une fonction qui teste la présence ou non d'un caractère dans une chaine de caractères Delphi? J'ai essayé Contains mais ca ne marche pas :s

Merci d'avance

[dehorter olivier]

Il existe la fonction POS :

POS (chaine a rechercher, chaine source)

[titou31000]

Oui mais cette fonction retourne un integer!! Moi je souhaiterais une fonction qui retourne vrai ou faux, en fonction de la présence ou non de la chaine de caractère.

[titou31000]

sinon je peux faire un string.pos(chaine, source) <> 0

[titou31000]

Mais j'ai l'impression qu'il ne me trouve pas la fonction pos...:'(

[ShaiLeTroll]

Pos, PosEx ou tout simplement une petite boucle !
Ou encore ContainsStr ou ContainsText qui renvoie directement un boolean, la première étant sensible à la casse, pas la seconde !

Attention, au namespace (nom de l'unité)

Pour D7 et plus
System.Pos
StrUtils.PosEx
StrUtils.ContainsText

A partir de 2009, il y a des variantes dans AnsiStrings et WideStrings car les fonctions par défaut sont en Unicode !

[dehorter olivier]

L'unité system est-elle déclarée ?

Code :

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

1
2
3
4
IF POS (chaine a rechercher, chaine source) > 0 THEN
   // vrai
ELSE
  // Faux

[titou31000]

Merci beaucoup pour vos réponses!! Je teste une méthode et ej regarderais le reste après!!

Bonne journée!!

[ShaiLeTroll]

L'unité system est-elle déclarée ?

Ne serait-elle pas incluse par défaut ?

[dehorter olivier]

Ne serait-elle pas incluse par défaut ?

Ben si mais :

Mais j'ai l'impression qu'il ne me trouve pas la fonction pos...:'(

[ShaiLeTroll]

sinon je peux faire un string.pos(chaine, source) <> 0

Je pense qu'il a mis un mauvaise namespace devant Pos !
string.pos n'existe pas comme namespace pour Pos qui est présent dans System, AnsiStrings et WideStrings

Si il consulte l'aide de Delphi 2009, XE ou XE2, celle que l'on trouve en ligne, on peut tomber sur System.UnicodeString, effectivement en C++Builder le type String (implicitement UnicodeString) est un objet en allocation statique, dans cette page, il n'y a pas une spécification que c'est uniquement du C++, cela peut embrouiller les débutants qui utilise Delphi pensant que l'on peut utiliser le type string comme une classe (classique si l'on a fait du Java avant par exemple)

[titou31000]

Bon ca semble fonctionner mais par contre j'ai une exception et une erreur, que je n'arrive pas à comprendre...J'utilise par la suite des expressions régulières et j'obtiens l'erreur "classe d'exception EOleexception avec message ErreurOLE 800A139D"

Code :

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

mc :=  RegExpExi.Find(varToStr(p_OLEApp.Selection.Text));

et par la suite un Invalid Range in character set

[ShaiLeTroll]

800A139D
8 = Error
A = Control
139D = 5021 = ERROR_NOT_QUORUM_CAPABLE

ERROR_NOT_QUORUM_CAPABLE
5021 (0x139D)

The cluster could not make the specified resource a quorum resource because it is not capable of being a quorum resource.

C'est ce que j'ai aussi dans mon winerror.h de C++Builder

Va comprendre ce que cela signifie exactement ?

RegExpExi a-t-il un rapport avec RegularExpressions.TRegEx, c'est une nouveauté en XE2 ?
Ou est-ce un IRegex de "Microsoft VBScript Regular Expressions 5.5"

Voir si il n'y a pas un soucis de conversion Variant en AnsiString\UnicodeString !

[titou31000]

RegExpExi est de type IRegex

[ShaiLeTroll]

Essaye Variants.VarToWideStr

Code :

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

1
2
 
mc :=  RegExpExi.Find(VarToWideStr(p_OLEApp.Selection.Text));