JEU DE CALCUL

Commentaire de artofsilence le 01/05/2009 21:57:54

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;

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