Compter nombre d'occurence

cs_architect
Messages postés
6
Date d'inscription
samedi 29 janvier 2005
Statut
Membre
Dernière intervention
12 février 2005
- 30 janv. 2005 à 20:58
florenth
Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
- 2 févr. 2005 à 13:43
Bonjour,



Je suis tout nouveau et surtout tout débutant sous delphi.

J'ai une question qui me tracasse et que je ne trouve pas sur le net :



Imaginons que l'on tape une chaîne de caractères dans un Edit.

J'aimerais pouvoir écrire une fonction qui renvoie
le nombre d'occurences de la lettre la plus présente dans cet Edit,
sans distinction majuscule/minuscule.

Pour cela je cliques sur le bouton OK, qui va m'écrire dans un label le nombre d'occurence.

Et à la limite en ignorant les accents, mais ceci est un extra.



Je sais que cela peut paraître complexe mais je suis très intérréssé par cela.

Merci d'@vance !

8 réponses

ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
Modifié le 15 nov. 2019 à 18:50
Tu peux faire comme ceci :
procedure
TForm1.Button1Click(Sender: TObject);
var
      str : string;
      count, nbtotal : integer;
begin
      nbtotal :=  0; // On initialise le nombre de lettres
      str := LowerCase(Edit1.Text); // On met toute la chaîne en minuscules
       for  count : = 1to Length(str) do // On parcours toute la chaîne...
        if str[count] =  'e'  then  inc(nbtotal); // Ici, on cherche les "e"
      Label1.Caption : = IntToStr(nbtotal); // Puis, on affiche le nombre de "e" trouvés
end;



@+
Bonne Prog'
Nico



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