Incrémenter dans un TLabel

Donc ma prochaine question est la suivante. A l'aide d'une procédure je génére une suite, je dois deviner la quatrième valeur de cette suite donc à l'aide d'une deuxième procédure associé à un bouton je valide ma réponse et un memo me dit si j'ai bon ou pas. Ce que je veux faire moi c'est incrémenté le nombre de bonnes réponses dans un label tout en sachant que je change de suite a chaque bonne réponse et je veux pas que mes bonnes répones reviennent à 0. Voial merci encore.

Re,

Code:

---

1 2 3 4 5

if MonLabel.Caption = '' then MonLabel.Caption := '1' else MonLabel.Caption := IntToStr(StrToInt(MonLabel.Caption) + 1);

---

@+

Pour son cas, je pense qu'il serait préférable d'avoir une variable globale, de l'incrémenté puis de l'afficher.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

interface uses ...   types ... procedure monbutton(sender : TObject); private iResultat : integer; public ... end;   var ...   implementation   procedure MAForm.monbutton(sender : TObject); begin   // // Traitement de la question //   if MaQuestionVrai then inc(iResultat);   MonLabel.caption := IntToStr(iResultat);   end;   end.

---

Enfin bon, c'est comme ca que je ferais ^^

Alors ouais je suis plus partant pour la seconde proposition oui mais je vous montre comment se fait mon code car j'ai un problème avec les boolean.

If g = Ttab[4] then Memo2.lines.add('Vrai') else Memo2.Lines.Add('Faux');
If Memo2.Lines.add('Vrai') then inc(iresultat);
Label1.Caption:=IntToStr(iresultat);

Donc vous voyez il accepte pas Memo2.Lines.add('Vrai') then inc(iresultat); cette implication marche pas je vois un peu pourquoi mais je vois pas comment faire pour la contourner. Merci de votre aide vous assurez:king:

Re,

Code:

---

1 2 3 4 5 6 7 8 9 10

If g = Ttab[4] then begin Memo2.lines.add('Vrai'); Inc(iResultat); end else Memo2.Lines.Add('Faux');   Label1.Caption:=IntToStr(iresultat);

---

Ca devrait mieux aller comme ca.

Code:

---

1 2	Memo2.Lines.add('Vrai')

---

Ne renvoie pas un boolean, donc incompatible avec le if.
@+

Reponse supprimée car battu de vitesse par Cl@udius ;-)


Michel

Citation:

---

Envoyé par A0080

Alors ouais je suis plus partant pour la seconde proposition oui mais je vous montre comment se fait mon code car j'ai un problème avec les boolean.

If g = Ttab[4] then Memo2.lines.add('Vrai') else Memo2.Lines.Add('Faux');
If Memo2.Lines.add('Vrai') then inc(iresultat);
Label1.Caption:=IntToStr(iresultat);

Donc vous voyez il accepte pas Memo2.Lines.add('Vrai') then inc(iresultat); cette implication marche pas je vois un peu pourquoi mais je vois pas comment faire pour la contourner. Merci de votre aide vous assurez:king:

---

Ton code ne peut pas fonctionner correctement:

Code:

---

1 2 3 4 5 6 7 8 9

If g = Ttab[4] then Memo2.lines.add('Vrai') // Ici, tu ajoutes vrai else Memo2.Lines.Add('Faux'); // Sinon, ici tu ajoutes faux   If Memo2.Lines.add('Vrai') then // Ici, tu tentes à nouveau d'ajouter vrai inc(iresultat); // Et comme ça risque de fonctionner à chaque foi, tu incrémentes tout le temps ton compteur!   Label1.Caption:=IntToStr(iresultat);

---

Le mieux serait encore de faire quelque chose dans ce style la:

Code:

---

1 2 3 4 5 6 7 8 9

if (g = Ttab[4]) then begin Memo2.lines.add('Vrai'); // Ici, tu ajoutes vrai inc(iresultat); end else Memo2.Lines.Add('Faux'); // Sinon, ici tu ajoutes faux   Label1.Caption:=IntToStr(iresultat);

---

Ou encore, pour ne pas surcharger ta procédure inutilement:

Code:

---

1 2 3 4 5 6 7

if (g = Ttab[4]) then begin Memo2.lines.add('Vrai'); // Ici, tu ajoutes vrai Label1.Caption:=IntToStr(inc(iresultat)); end else Memo2.Lines.Add('Faux'); // Sinon, ici tu ajoutes faux

---

Je viens de trouver tout seul merci quand même j'ai quand même une question HS. Lorque qu'on travaille comme cela sur un prog et que au fur et à mesure du prog on n'a plein de question à poser concernant différents domaines et différents codes sa dérange pas les modos d'avoir plusieurs topics créer, genre 10 topics de la même personne en moins d'une heure?

P.S : J'ai d'autres questions en cours.:mrgreen:

Edit : Merci à toi Gaadek en fait ce que j'avais déjà fait correspond à ta dernière proposition merci quand même c'est cool.

Citation:

---

Envoyé par A0080

Je viens de trouver tout seul merci quand même j'ai quand même une question HS. Lorque qu'on travaille comme cela sur un prog et que au fur et à mesure du prog on n'a plein de question à poser concernant différents domaines et différents codes sa dérange pas les modos d'avoir plusieurs topics créer, genre 10 topics de la même personne en moins d'une heure?

---

Il faut quand même que tu recherches par toi-même avant de venir poser une question.
De plus , tu apprends mieux en recherchant seul qu'en ayant une réponse toute faite, donné par un membre du forum.
Suis ce qu' j'ai écrit dans ma signature et viens poster ici, seulement si tu es bloqué car tu as épuisé toutes les ressources possibles ^^

Merci à toi Malatar ok, et encore merci pour ton accueil et celui des autres c'est cool.

Citation:

---

Envoyé par A0080

Merci à toi Malatar ok, et encore merci pour ton accueil et celui des autres c'est cool.

---

CA n'empeche que si tu as finis avec cette discution de cliquer sur le joli boutton :resolu: ;)

Salut, une fois que tu as eu une réponse qui te convient, il serait cool que tu rajoute le tag :resolu: que tu peux trouvé tout en bas du post.

Ainsi la clarété du forum s'en sort grandi.

Merci :king: