JEU DE CALCUL
artofsilence
Messages postés
2
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
1 mai 2009
-
1 mai 2009 à 21:57
artofsilence Messages postés 2 Date d'inscription dimanche 2 décembre 2007 Statut Membre Dernière intervention 1 mai 2009 - 1 mai 2009 à 21:57
artofsilence Messages postés 2 Date d'inscription dimanche 2 décembre 2007 Statut Membre Dernière intervention 1 mai 2009 - 1 mai 2009 à 21:57
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
https://codes-sources.commentcamarche.net/source/12437-jeu-de-calcul
1 mai 2009 à 21:57
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;
##################################################