80分:delphi+access数据运算时报错:数据类型不对

Question

代码:
procedure TForm3.Button2Click(Sender: TObject);
var
r1:real;
r2:real;
code1:integer;
code2:integer;
s1:string;
s2:string;
s3:string;
begin
adotable1.Edit;
s1:=dbedit3.Text;
s2:=edit1.Text;
val(s1,r1,code1);
val(s2,r2,code2);
str(r1+r2,s3);
dbedit3.text:=s3;
adotable1.Post;
edit1.text:='';
showmessage('存款业务结束,下次再见!');
end;和dbedit3绑定字段的数据类型:
    字段名:ye
    类型:数字(长整)
报错:'1.1111111111E+0001'is not a valid integer value

Answer 1

s3的值是'1.1111111111E+0001'吗？
你数据库里的类型是长整形，你把这个post进去当然错了。

Answer 2

val(s1,r1,code1);
val(s2,r2,code2);
str(r1+r2,s3);
这几句语句不安全导致后面的错