Курсовая работа: Программа игры Кости

Button2. Enabled: =false;

end;

procedure TForm2. Edit1KeyPress (Sender: TObject; var Key: Char);

begin

if ( (Key >= '0') and (Key <= '9') or (Key = #8)) then begin end // цифры

else

Key: = #0; // не цифра

end;

procedure TForm2. Edit2KeyPress (Sender: TObject; var Key: Char);

begin

if ( (Key >= '0') and (Key <= '9') or (Key = #8)) then begin end // цифры

else

Key: = #0; // не цифра

end;

procedure TForm2. Button2Click (Sender: TObject);

var

sum: integer;

begin

button3. Enabled: =true;

ns: =Strtoint (Edit3. Text);

k: =1+k;

a: =0;

b: =0;

Memo1. Lines. Add ('');

Memo1. Lines. Add ('Игрок : '+ Label1. Caption);

a: =random (6) +1;

Memo1. Lines. Add ('Первый кубик = ' +inttostr (a));

b: =random (6) +1;

Memo1. Lines. Add ('Второй кубик = ' +inttostr (b));