Bonjour,

j'essaie d'améliorer un petit jeu du nombre mystère
qui est donné en application de base
en y ajoutant un petit plus :
à savoir
j'aimerai donner la possibilité à l'utilisateur
de connaître le nombre de coups qu'il a joué en plus du résultat final.
Par exemple :
Bravo, vous avez trouvé le nombre mystère en 10 coups.
J'avais déjà réalisé ce genre d'application en c
grâce à une variable un peu spéciale (coup++)
qui n'est malheureusement pas possible en delphi.
Il s'agit donc d'incrémenter ma variable coup d'autant de fois que cela est nécessaire
mais comment cela pourrait ce faire en Delphi.

Pour exemple voici mon code à l'état brut :
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 unit Principale2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
NbSecret: integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
NbSecret:=Trunc(Random(101));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
NbTest, coup: integer;
reponse: string;
begin
 
coup:=0;
NbTest:=0;
reponse:='0';
InputQuery('Saisissez un nombre', 'valeur', reponse);
NbTest:=StrToInt(reponse);
if NbTest < NbSecret then
ShowMessage('Le nombre secret est supérieur à :' + IntToStr(NbTest))
else if
NbTest > NbSecret then
ShowMessage('Le nombre secret est inférieur à :' + IntToStr(NbTest))
else
ShowMessage('Félicitation, vous avez trouvé le nombre secret qui est :' + IntToStr(NbSecret) + 'en ' + IntToStr(coup) + 'coup');
 
 
end;
end.
Où pourrais-je placer mon incrémentation par ex :
inc(coup);
Si quelqu'un a une idée je suis preneur
et ce serait sympa car ça mm'aiderait beaucoup.

Merci de m'aider.