JEU DE CALCUL

Signaler
Messages postés
2
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
1 mai 2009
-
Messages postés
2
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
1 mai 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12437-jeu-de-calcul

Messages postés
2
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
1 mai 2009

Peut etre je suis dans le champ mais cette calculatrice ne serait-elle pas plus juste avec cette petite modif:

C
procedure TForm1.btnStatistiqueClick(Sender: TObject);
begin
if COR > 1 then
lblCorrect.Caption := 'réponses correctes'
else
lblCorrect.Caption := 'réponse correcte';
if INCOR > 1 then
lblIncorrect.Caption := 'réponses correctes'
else
lblIncorrect.Caption := 'réponse correcte';
gpStatistique.Visible := true
end;
##################################################

En remplaceant par ceci:

PARTI DU CODE MODIFIÉ ##################################################

procedure TForm1.btnStatistiqueClick(Sender: TObject);
begin
if COR > 1 then
lblCorrect.Caption := 'réponses correctes'
else
lblCorrect.Caption := 'réponse correcte';
if INCOR > 1 then
lblIncorrect.Caption := 'réponses incorrectes'
else
lblIncorrect.Caption := 'réponse incorrecte';
gpStatistique.Visible := true
end;

##################################################