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 !
A voir également:

8 réponses

ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
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 !