Bonjour, je suis un peu dans le meme cas que thoc sauf que moi c'est surement un pb de débutant
J'ai voulu faire un tit programme sur le jeux "nombre secret" mais le premier nombre secret est toujours 0 alors que j'ai initialiser avec Trunc(Random(101);

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
procedure Tprincipal.FormCreate(Sender: TObject);
begin
nbsecret:=Trunc(Random(101));
end;
 
procedure Tprincipal.checkClick(Sender: TObject);
 
begin
nb:=StrToInt(nbstr.Text);
if nb > nbsecret then showmessage('Le nombre secret est plus petit que '+nbstr.Text)
else if nb < nbsecret then showmessage('Le nombre secret est plus grand que '+nbstr.Text)
else
  begin
    showmessage('Gagné le nombre secret est '+nbstr.Text);
    nbsecret:=Trunc(Random(101));
    showmessage('Nouveau Nombre secret choisi.');
  end
end;
Voilà si vous pouvez m'aider à résoudre ce petit probleme
Merci d'avance.