Fonction Pos().Résolu

Question

Salut les gars,



Je voudrais savoir comment avec la fonction Pos() signifier par exemple
&#224; Delphi de v&#233;rifier si un  mot est contenu trois fois au lieu
d'une fois dans une chaine de caract&#232;re par exemple label1.caption.



Merci &#224; tous.

-----------------------------------------

May Delphi and Php change the world ....

ni69 · Accepted Answer

Voilà ! function NombreDeSubStrDansStr(SubStr:String; Str:String):Integer; var i:integer; begin result := 0; i := 0; // initialisation repeat // ON REPETE CE CODE i: =PosEx(SubStr,Str,i+1); // Recherche la SubString dans la String principale à partir du (i+1)ème caractère if i<>0 then inc(result); // Si la SubString a été trouvée (donc que 1<>0), on ajoute 1 à la valeur de retour de la fonction until i= 0; // JUSQU'A CE QUE i VAILLE 0, C'EST A DIRE QUE LA SUBSTRING N'A PLUS ETE TROUVEE DANS LA STR PRINCIPALE end ; Remarque : Cette fonction n'est disponible qu'à partir de Delphi7. @+ Bonne Prog' Nico [www.ni69.new.fr]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

jlen100 · Answer

salut ,
tu peux faire :
function nombredemot(var chaineacontroler:string;mot:string):integer;
var index:integer;
buffer:string;
begin
   buffer:= chaineacontroler;
   index:=0;
    while  (pos(mot,buffer))<>0 do
   begin
      inc(index);
      delete(buffer,pos(mot,buffer),length(mot));//on supprime le mot de la chaine
   end;
   result: =index;
end;
bonne prog;

ni69 · Answer

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]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Becracker · Answer

et je mets le 3 (nombre de fois que doit &#234;tre pr&#233;sente la chaine v&#233;rifi&#233;e) o&#249; dans tout ca  ?

-----------------------------------------

May Delphi and Php change the world ....

ni69 · Answer

Ben tu l'inclus simplement dans ton test :



if NombreDeSubStrDansStr( 'mot1' , Label1.Caption ) = 3 then

ShowMessage( 'Le mot est pr&#233;sent 3 fois' );


@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

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

Becracker · Answer

Merci &#224; 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&#233;rentes
lignes de ta fonction (qui m'a paru &#234;tre la plus facile des 2 ), paske je connais pas grand chose dans les fonctions.

-----------------------------------------

May Delphi and Php change the world ....

Fonction Pos().

7 réponses

Votre réponse

Discussions similaires