Question

Delphi编程里边，在一个form里有两个dbedit我想得到这两个dbedit里的数之差。

代码如下：
先定义一个变量
A:integer;
然后在用
a:=dbedit1.text-dbedit2.text;
运行错误，是怎么回事？求大神指点！

Answer 1

dbedit.text的属性是string，两个string相减并赋给一个整形当然会是错误！！
应该这样：

var a:integer;
begin

a:=strtoint(dbedit1.text)-Strtoing(dbedit2.text);
end;

不这这个不太严谨，你要确定两个edit的值应该都始终可以转为整形， 否则会报错！

追问

哪对于浮点数呢。。。有小数点的该怎么办呢

追答

对于浮点的话可以用strtofloat去转换！

追问

哦哦。。。成功了，谢谢。那怎么在form2的一个表中插入一条从form1中已查询到的记录。。比如我从form1的A表查询到一个sname字段为'张三'的人，在form2的B表中插入这个张三，怎么做？
哦哦。。。成功了，谢谢。那怎么在form2的一个表中插入一条从form1中已查询到的记录。。比如我从form1的A表查询到一个sname字段为'张三'的人，在form2的B表中插入这个张三，怎么做？

追答

跨FORM的话，需要你对其中 的一个FORM中定义 相关类型变量（在Public段）
然后，把这个变量赋值，并在另一个FORM引用它（需要USE）

追问

这点我知道。。。我已经写好传递过来的代码了，就是对插入这搞不明白。。不知道怎么插入

追答

你用的是什么表？什么数据库？

追问

Access
2003的

追答

拖控件 adotable datasource
把adotable里的表设成你的access表 datasource 指向 adotable
var temp:string; //这是你的变量
begin
adotable.insert;
adotable.fieldbyname('name').asstring:=temp;
adotable.post;
end;

追问

传递变量：将form1查询到的变量传递到form2中的一个变量sname如下
在Form2.sname:=adotable1.fieldbyname('姓名').asstring；

追答

正确！但之前你必须把adotable打开并执行adotable.insert;

追问

谢谢！成功了。。。我能加你的Qq不。。。我是一名在校大二学生，计算机专业的，对编程非常酷爱，正在学习中
谢谢！成功了。。。我能加你的Qq不。。。我是一名在校大二学生，计算机专业的，对编程非常酷爱，正在学习中

追答

呵呵，采纳吧……我不上QQ

追问

好吧，谢谢！