Problème d'initialisation variable tableau
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:
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.
