ehlib中dbediteh简单乘法计算问题

Question

access数据库,单价(小数点后8位,数字,双精度类型),数量,都用ehlib中dbediteh的显示,现在想计算总价(单价*数量)然后放入dbediteh中,请问如何实现呢??
如何取dbediteh.text的值呢??strtofloat(dbediteh.text)?这样编译有问题啊!还有就是如何定义一个变量能符合双精度类型的要求?

Answer 1

直接用dbediteh.value就可以了,不用strtofloat(dbediteh.text),定义双精度类型
var
a:double;

Answer 2

方法1：
设计时，把DBEditEh控件与数据库字段JE ，对应！
直接在数据库中计算，ADOQuery.FieldByName('JE').asCurrency := ADOQuery.FieldByName('数量').asfloat * ADOQuery.FieldByName('单价').asfloat方法2：
DBEditEh1.Text := FloatToStr(StrToFloat(DBEditEh2.Text) * StrToFloat(DBEditEh3.Text))