Discussion :

[A0080]

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.

[Cl@udius]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[Rayek]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

[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

[Cl@udius]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[michel baily]

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


Michel

[Gaadek]

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

Ton code ne peut pas fonctionner correctement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

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

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.

[Rayek]

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 ^^