Delphi 7 et affichage de variable [Résolu]

JLTITOU 2 Messages postés vendredi 1 octobre 2004Date d'inscription 9 juin 2010 Dernière intervention - 8 juin 2010 à 12:57 - Dernière réponse : JLTITOU 2 Messages postés vendredi 1 octobre 2004Date d'inscription 9 juin 2010 Dernière intervention
- 9 juin 2010 à 17:44
Bonjour,
étant tout à fait débutant et voulant faire un petit test de révision d'anglais, je ne parviens pas à afficher une variable dans 'ShowMessage'. Merci pour votre aide.
Voici mon code, pouvez-vous le corriger ?



procedure TForm1.Button1Click(Sender: TObject);
var
answer : string;
score : integer;

begin
score := 0;
InputQuery('ENGLISH TEST','What is the English for : CHAT ? ',answer);
if answer = 'CAT' then
score := score + 1;
ShowMessage('Good answer ! your score is : ', score )
else
score := score + 0;
showmessage('Wrong ! your score is : ', score );

end;

end.

jean.lalanne4@wanadoo.fr
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Cirec 4224 Messages postés vendredi 23 juillet 2004Date d'inscription 5 juin 2018 Dernière intervention - 8 juin 2010 à 13:40
3
Merci
Salut,

il faut "transtyper" ta variable où utiliser la fonction de formatage de chaine "Format" voir le tutoriel de F0xi à ce sujet où encore utiliser "ShowMessagefmt"

ShowMessage('Good answer ! your score is : '+ IntToStr(score));

ShowMessage(Format('Good answer ! your score is : %d', [score]));

ShowMessagefmt('Good answer ! your score is : %d', [score]);



[hr]@+Cirec
[hr]

Merci Cirec 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de Cirec
Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 8 juin 2010 à 22:59
3
Merci
type
  TWord = packed record
    FR, EN: string;
  end;
  
var
  score  : integer = 0;
  
const
  strGoodWrong : array[boolean] of string = ('Wrong','Good');
  strScore     = '%s! your score is : %d';
  
  Words : array[0..4] of TWord =(
    (FR:'CHAT';   EN:'CAT'),
    (FR:'CHIEN';  EN:'DOG'),
    (FR:'TIGRE';  EN:'TIGER'),
    (FR:'CHEVAL'; EN:'HORSE'),
    (FR:'SINGE';  EN:'MONKEY')
  );
  WordsCount = length(Words);
  
procedure TForm1.Button1Click(Sender: TObject);
var 
  answer : string;
  oldScore: integer;
  r: integer;
begin
  r := random(10000) mod WordsCount;
  
  oldScore := score;
  
  InputQuery('ENGLISH TEST', 'What is the English for : "'+Words[r].FR+'" ? ', answer);
  answer := Trim(UpperCase(answer));
  
  if answer = Words[r].EN then
    inc(score);
    
  ShowMessage(format(strScore,[strGoodWrong[score>oldScore], Score]));
end; 

initialization 
  randomize;
  
end.


________________________________________________________

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de f0xi
JLTITOU 2 Messages postés vendredi 1 octobre 2004Date d'inscription 9 juin 2010 Dernière intervention - 9 juin 2010 à 17:44
0
Merci
Merci beaucoup pour l'aide. La technique du tableau est en effet plus "élégante" et pratique.
Commenter la réponse de JLTITOU

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.