怎么动不动就会提示' xx is not a valid integer value' ??
Delphi 新手 用Delphi7跟着视频学习 程序编译成功之后 怎么动不动就会提示' xx is not a valid integer value' 呢? 明明就是个数字啊？代码在这：(<结构化程序设计01（下） - 零基础入门学习>里的验证那块的)；
求救阿！！！！！！！好困惑！！英语不行！！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
procedure Edit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
dat: Integer;
{$R *.dfm}
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Text:= ' ';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Label1.Caption:=IntToStr(Random(100));
Label2.Caption:=IntToStr(Random(100));
dat:=(StrToInt(Label1.Caption)+ StrToInt(Label2.Caption));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:=IntToStr(Random(100));
Label2.Caption:=IntToStr(Random(100));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
temp: Integer;
begin
temp:= StrToInt(Edit1.Text);
if (temp=dat) then
ShowMessage('回答正确,电脑即将爆炸!')
else
ShowMessage('回答错误!');
end;
end.
错误后提示如下：
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
为什么没人搭理我？？ 最近正好复习DELPHI。。加俺QQ一起学习吧！342196674
简单的看了下，没发现啥问题。。重装下D7先看看，或下老师的源码，如果还有问题就清楚了。
页:
[1]