Salut les gars,

Je voudrais savoir comment avec la fonction Pos() signifier par exemple à Delphi de vérifier si un  mot est contenu trois fois au lieu d'une fois dans une chaine de caractère par exemple label1.caption.

Merci à tous.

-----------------------------------------

Pourquoi ne pas utiliser la fonction PosEx() de l'unité StrUtils ?

function NombreDeSubStrDansStr(SubStr:String; Str:String):Integer;
var
 i:integer;
begin
  result := 0; i := 0;
  repeat
    i:=PosEx(SubStr,Str,i+1);
    if i<>0 then inc(result);
  until i=0;
end;

Remarque : Cette fonction n'est disponible qu'à partir de Delphi7.

@+
Bonne Prog'
Nico [www.ni69.new.fr]

---

et je mets le 3 (nombre de fois que doit être présente la chaine vérifiée) où dans tout ca ?

-----------------------------------------

Ben tu l'inclus simplement dans ton test :

if NombreDeSubStrDansStr( 'mot1' , Label1.Caption ) = 3 then
ShowMessage( 'Le mot est présent 3 fois' );

@+
Bonne Prog'
Nico [www.ni69.new.fr]

---

dans ma fonction ou dans celle de ni69 le resultat retourné te donne le nombre de fois que le mot a été trouvé il te suffit ensuite de l'utiliser dans un test par exemple
if  nombredemot('mot',chaine)=3 then showmessage('mot est present 3 fois')

Merci à vous ni69 et jlen100 pour votre aide. Seulement, j'aurai besoin de toi ni69 pour que tu m'expliques ce que veulent dire les différentes lignes de ta fonction (qui m'a paru être la plus facile des 2 ), paske je connais pas grand chose dans les fonctions.

-----------------------------------------