鱼C论坛

 找回密码
 立即注册
查看: 12143|回复: 2

怎么动不动就会提示' xx is not a valid integer value' ??

[复制链接]
发表于 2014-2-24 20:28:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
Delphi 新手 用Delphi7跟着视频学习 程序编译成功之后 怎么动不动就会提示' xx is not a valid integer value' 呢? 明明就是个数字啊?
代码在这:(<[08]结构化程序设计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.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2014-2-26 09:54:32 From FishC Mobile | 显示全部楼层
为什么没人搭理我??
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2014-2-26 12:15:58 | 显示全部楼层
最近正好复习DELPHI。。加俺QQ一起学习吧!342196674
简单的看了下,没发现啥问题。。重装下D7先看看,或下老师的源码,如果还有问题就清楚了。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-12-23 03:45

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表