回 帖 发 新 帖 刷新版面

主题:[讨论]一个关于异常处理的问题



一个关于异常处理的问题
   我在运行下面一段程序时出现了异常提示如图(1)

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  edit1.Text:=inttostr(strtoint(dbedit3.Text) +strtoint(dbedit4.Text)
      +strtoint(dbedit5.Text)+strtoint(dbedit6.Text)+strtoint(dbedit7.Text));
  adotable1.Edit;//adotable1是用ACCESS建立的表
  adotable1.FieldByName('total').AsInteger :=strtoint(edit1.Text);

end;
  [color=00FF00][size=4][size=2]debugger exception notification
     project project1.exe raised exception class EConverError with message ''' is not a valid integer value'.process stopped .use step or run to continue.[/size][/size][/color]

 
                                  图(1)
而上面dbedit3—7为5个输入框,是从数据库中读出的值。

 
  请问这种情况怎样处理?

回复列表 (共4个回复)

沙发

看一下错误提示了.

将''转换int时出错.

板凳

请问如何改动?
谢谢!

3 楼

呵呵,
把默认为空的Edit的Text,写成0

4 楼


可能是在TEXT文本中输入的不是数据型的字符吧。因此产生转换的错误。

我来回复

您尚未登录,请登录后再回复。点此登录或注册