Discussion :

[TheBigMac]

Bonjour

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

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

1)

Code :

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

Uses sysutils, StrUtils;

2)

Code :

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

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

[edam]

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

[TheBigMac]

Ok, edam, merci; je vais utiliser pos.

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

[edam]

où

[Linkin]

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

[TicTacToe]

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 )

[sjrd]

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

[TheBigMac]

Merci à vous tous pour vos réponses.

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

[Pedro]

Salut

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

La fonction PosEx est assez facile à refaire

Code :

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

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é