|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Выдает ошибку is not a valid integer value не могу понять почему?
Код:
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Close; end; procedure TForm2.Button2Click(Sender: TObject); Label lb1,15; Var i,k,b,a:integer; s:String; begin ShowMessage('Привет партнеру!'+#13+'Я рад, что Вы состязаетесь со мной.' +#13+#13+'Отгадайте мое любимое число!'+#13+'Для справки: оно меньше тысячи'); lb1:Randomize; b:=Random(1000); i:=0; 15: s:= InputBox('Заголовок','Ввод',''); Val (s,a,k); if k<>0 then Goto 15; Repeat Val(s,a,k); if a<b then a:=Round(StrToInt(InputBox('Ввод числа','Больше',''))); if a>b then a:=Round(StrToInt(InputBox('Ввод числа','Меньше',''))); i:=i+1; until a=b; case i of 1..9:ShowMessage('Это случайность!'); 10:ShowMessage('Чудесно!'); 11,12:Showmessage('Очень хорошо!'); 13,14:ShowMessage('Посредственно'); else ShowMessage('Неудачно!'); end; If MessageDlg('Сыграем еще?',mtInformation,[mbYes,mbNo],0)=mrYes then Goto lb1; ShowMessage('Пока.'); end; end. Последний раз редактировалось Admin, 22.02.2018 в 19:27. |
#2
|
||||
|
||||
label, goto... Это из книжки 1985 года пример взят?)))
Скорее всего функция StrToInt() возбуждает исключение. Можно StrToIntDef() использовать. Пишу программы за еду. __________________ |