si label il y a 20 alors....

Bonsoir a tous,

j'ai une question que je n'arrive pas a resoudre,

 j'ai un espece de compteur et j'aimerais savoir comment je pourrais faire si le label1.caption arrive au chiffre 20 bin il s'arrete

 car il fait 1,2,3,4,5,6,7....20,21,21....

mais le but est qu'il ne depasse pas le nombre 20 ....

auriez vous une idée?

merci d'avance pour votre aide...

Salut,

Moi, c'est le titre du sujet qui m'a attiré.

Peut-être qu'en nous donnant le code de ton compteur, on va trouver un truc qui colle pas...

Salut oui désoler,

alors en faite je me sert d'un button qui au click me dit combien il y a de chiffre apres chaque virgule dans un Tedit en me servant d'un delimiter donc voici mon code

with TStringList.Create do
   begin
      Delimiter := ',';
       DelimitedText := edit1.text;  //verifie se qu'il y a dans le Tedit...
         label1.Caption :=(IntToStr(Count));//compte combien il y a de virgule....
      Free; //je libére tout sa...
  end;//et je termine..
end;

alors es possible que aprés 20 virgule il continue pas son sa route?

La vache!
Ca m'apprendra à demander du code!
Tu comptes quoi, au juste? Des chiffres ou des virgules?
J'suis un peu paumé, là...
Mes circuits sont niqués
Depuis y'a un truc qui fait masse
L'courant peut plus passer
Non mais t'as vu c'qui passe
J'veux l'feuilleton à la place

Salut merci f0xi pour toute l'aide que tu apportes  et joyeuse paques a tous ....

Caribensila: en effet je galerer un peu a expliquer mon probleme je voulais juste une piste pour appres le modifier a ma facon donc ne dijoncte pas

bref merci quand meme et bonne soirée a tous...

attention tu n'emplois pas la bonne methode pour la creation et liberation des objets :

with TStringList.Create do
try
   Delimiter := ',';
   DelimitedText := edit1.text;  //verifie se qu'il y a dans le Tedit...
   label1.Caption := (IntToStr(Count)); //compte combien il y a de virgule....
finally
   Free; //je libére tout sa...
end;

pour compter la presence d'un caractere dans une chaine tu peux egalement faire :

function CountChar(const S : string; const C: char) : integer;
var N, P : integer;
begin
  result := 0;
  for N := P to Length(S) do
    if S[N] = C then
      inc(result);
end;

a utiliser comme suis :

V := CountChar(Edit1.Text, ',');
Label1.Caption := IntToStr(V);

---