Débutant: Delphi 6 et la fonction PosEx

Bonjour

J'utilise, en débutant, Delphi 6 en mode console.

Dans le programme, j'ai les déclarations suivantes:

1)

Code:

---

Uses sysutils, StrUtils;

---

2)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function Compte(Const SubStr:String;Const s:String):Integer; { fonction trouvée dans la FAQ Delphi} Var i:Integer; begin Result:=0; i:=0; Repeat i:=PosEx(SubStr,s,i+1); If i<>0 Then Inc(Result); Until i=0; End;

---

A la construction du projet j'obtiens l'erreur suivante:
"Identificateur non déclaré : 'PosEx'"

PosEx n'est-il pas déclaré dans StrUtils?

Merci d'avance pour vos suggestions

posex?? ou ce touve??
pos suffira,non??
en plus utlise, ctrl+espace et aussi F1

Ok, edam, merci; je vais utiliser pos.

Mais pourquoi cette fonction est-elle dans la FAQ Delphi ??

où :?

Pos ne suffira pas s'il veut compter le nombre d'occurrence d'une sous-chaine dans un mot.

Posex est dans StrUtils dans D7.

Faq: http://delphi.developpez.com/faq/?pa...#trouverchaine

La différence entre PosEx et Pos, c'est que PosEx recherche une occurence seulement à partir d'une certaine position, contrairement à Pos qui recherche l'occurence en partant du début de chaine.

PosEx( S1, S2, 0 ) est équivalent à Pos( S1, S2 )

:recherch:
http://www.developpez.net/forums/sho...ighlight=PosEx

Merci à vous tous pour vos réponses.

Comme je suis en D6, StrUtils ne connaît donc pas posex ..

Salut :)

Citation:

---

Envoyé par TheBigMac

Comme je suis en D6, StrUtils ne connaît donc pas posex ..

---

La fonction PosEx est assez facile à refaire ;)

Code:

---

1 2 3 4 5 6

function PosEx(const SubString: string; const s: string; const StartIndex:integer); begin Result := Pos(SubString, Copy(s, StartIndex, Length(s) - StartIndex)); if Result > 0 then Result := Result + StartIndex end;

---

Attention: code non testé ;)