Игра угадайка

[grom333]

Вчера делал известную игру угадайка, думаю все в курсе, через рамдом от 0 до 100 число загадывается, вводим в едит он в зависимости от условия пишет больше, меньше, выйграли. Используется еще dec отсчет попыток. Хочу сделать чекбокс "сложность" чтобы в зависимости от уровня прописывалось условие на dec число попыток и на само число рамдом. Еще надо чтобы посло отгадывания, хаписывался результат, т.е. окно вылетает имя пишешь и автоматом результат, за сколько отгадал. Чтобы результаты можно было посмотреть. Недочеты впроге это после завершения игры, она не скидывается на нулевое значение, т.е. нельзя дальше играть... я вот незнаю как сделать. И еще подскажите как едит постояно выделенным мог быть и на энтер действие прописать.
Теоретически я знаю, а написать практически не могу. Не хватает мозгов.

[ОДИНОЧЕСТВО В СЕТИ]

она не скидывается на нулевое значение, т.е. нельзя дальше играть... я вот незнаю как сделать.

Показывай Messagedlg типа 'Продолжим' и если нажата кнопочка Yes то все
параметры в 0 и игра заново, ну а если No то exit!

на энтер действие прописать.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then showmessage('нажат enter')
end;

[grom333]

нет, энтер для ввода числа в едите

[ОДИНОЧЕСТВО В СЕТИ]

ну так вместо showmessage('нажат enter') напишите например k:=strtoint(edt1.text);
Что у вас там за игра интересно(с такими то знаниями)

[grom333]

а как быть сосложностью игры и с чекбоксом или с радиобатоном? Я примерно понимаю if radiobutton1:= тото то x:=10 примерно так?

[ОДИНОЧЕСТВО В СЕТИ]

примерно так?]

Ну что то вроде того

[grom333]

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

begin
   if key=#13 then ent:=strtoint(edit1.Text);
end;

что-то ноль внимания на нажатие enter

[ОДИНОЧЕСТВО В СЕТИ]

что-то ноль внимания на нажатие enter

А чего он должен сделать сказать "Дарагой, ent=числу"? Так что ли? Как вы определили что ноль внимания?

[grom333]

аа... дошло, просто он ничего впринципе не делал, надо код туда вставить выполняемый.

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

begin
   if key=#13 then ent:=strtoint(edit1.Text);
   if ent > x  then label1.Caption:='Меньше';
 if ent < x  then label1.Caption:='Больше';
 if ent = x  then Showmessage('Вы угадали!!!');
 dec(k);
 label2.caption:=inttostr(k);
 if k=0 then Showmessage('Вы проиграли');
end;

Попробую сложность сделать. если что сможете подсказать. Но заранее не пишите. Сперва почитаю.

[grom333]

Не могу понять, ставлю переменную k которая относится к dec в радиобаттон.

if radiobutton1.checked then k:=5;
     if radiobutton2.checked then k:=10;

Получается, что если ввожу число он сразу отсчитывает, хотядолжен единицу отсчитывать только после нажатия на баттон. Первый радиобаттон полцчается отсчитывает от 5, а второй почемуто от 255... направьте меня в нужную сторону.