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.