oui ou tu met un autre bouton "rejouer"
et tu met le debut du code dedans:
procedure TFormdevin.bouton rejouerClick(Sender: TObject);
begin
i:=Random(100-0+1)+0;
end;
par contre y faut que tu déclare tes variables n et i en haut pour que chaque procédures puissent y acceder
unit...
interface...
uses...
type
TForm1 = class(TForm)
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
var n,i:integer;
implementation
....
à la fin au lieu d'un else tu devrait plutôt mettre if n=i then gagné, là ça gène pas trop mais tu risque de faire pas mal de bug avec des else partout
edit:correction
Message édité par Flagad'aware le 11-03-2007 à 12:30:41