IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Угадай число
сообщение
Сообщение #1


Гость






Нужна ваша помощь! Программа «Угадай число» делает один проход и дальше не работает. Пытаюсь зациклить, но выводится ошибка. Как правильно оформить это все в цикл?


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.

 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Он у меня 6кб весит, но все равно вылазиет ошибка!
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Nataly   Угадай число   2.11.2006 18:23
Reptile   Не пойму что нужно зацыклить, ведь сравнение должн…   2.11.2006 18:58
Nataly   Сравнение то поисходит, только всего лишь один раз…   3.11.2006 3:05
Michael_Rybak   Выложи весь проект.   3.11.2006 3:21
мисс_граффити   Оно ведь при введении 1 числа и должно 1 раз прове…   3.11.2006 3:27
Nataly   Нет, прога должна продолжать работу, пока пользова…   3.11.2006 3:35
Гость   Что делать, если размер загружаемых файлов превыша…   3.11.2006 3:48
volvo   Запаковать проект в архив (без EXE-шника, разумеет…   3.11.2006 3:52
Nataly   Он у меня 6кб весит, но все равно вылазиет ошибка…   3.11.2006 4:03
Pautina   Посмотрите, плиз!   3.11.2006 4:20
volvo   У тебя просто не генерируется случайное число (точ…   3.11.2006 5:19
Pautina   Спасибо огромное!!! РАБОТАЕТ!!   3.11.2006 14:37
Pautina   Здравствуйте, снова нужна ваша помощь! Необход…   24.11.2006 3:40
WALdemar   нужно просто добавить в начале каждого условия lab…   24.11.2006 22:00
Pautina   не получается.. к примеру прога выдает "введе…   25.11.2006 4:12
мисс_граффити   нажатие клавиши - это ведь обработчик события, так…   25.11.2006 14:49
Pautina   проблема в том, как проверить эту правильность.. :…   25.11.2006 16:31
мисс_граффити   так, я запуталась. что юзер должен обозначать нажа…   25.11.2006 19:22
WALdemar   а зачем вообще эти кнопки - Больше и Меньше? По ло…   25.11.2006 22:19


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 10.11.2024 15:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name