22.02.2018, 12:05
|
Прохожий
|
|
Регистрация: 22.02.2018
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
|
|
Выдает ошибку 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.
|