Нужна ваша помощь! Программа «Угадай число» делает один проход и дальше не работает. Пытаюсь зациклить, но выводится ошибка. Как правильно оформить это все в цикл?
procedure TForm1.FormActivate(Sender: TObject); begin MEdit.SetFocus; Label1.Caption:='Сыграем в игру?' end;
procedure TForm1.BbRunClick(Sender: TObject); begin a:=InputBox('Диапазон чисел’,'Введите количество чисел',''); n:=StrToInt(a); n:=random(n+1); Label1.Caption:='Я запомнил число! Сумеешь угадать?'; MEdit.SetFocus; BbRun.Visible:=False; BbResult.Visible:=True; end;
procedure TForm1.BbResultClick(Sender: TObject); begin if MEdit.Text='' then exit; i:=StrToInt(Trim(MEdit.Text)); if i>n then begin Label1.Caption:='Введенное число больше моего! Попробуй еще раз!'; MEdit.Clear; MEdit.SetFocus; end; else if i<n then begin Label1.Caption:='Введенное число меньше моего! Попробуй еще раз!'; MEdit.Clear; MEdit.SetFocus; end else begin Label1.Caption:='Поздравляю!!!! Ты угадал!!!'; b:=InputBox('Сообщение',' Повторить?',''); if InputBox.Text:='äà' then begin bbResult.Visible:=False; bbRun.Visible:=True; end else Form1.Close; end; end;
procedure TForm1.BbCloseClick(Sender: TObject); begin Form1.Close; end; end.