如何输入小数(0分)

乡

乡下人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

需要把edit中的文本转化成小数，小数点后的有效位3位就够了，我是这样写的：
adotable17['工作量']:=strtofloat(edit17.Text);
但是如果输入的是小数的话转换后小数点后面有12位，比如输入1.1，显示的是1.099999999548
如果输入是整数的话就没有问题！请问各位大人怎么修改，谢谢！！！
我刚来，没分送，不好意思[]

 

K

kupwl2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

把数据库这个字段定义为BCD型，
SQLSERVER为numruic
paradox为BCD

 

乡

乡下人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

可是我是用access做的数据库，好像没法把字段定义为BCD型？还有我做的是单机版，应该用不到
SQLSERVER吧？还有paradox是什么东东？一个控件还是数据库系统？我是新手，见笑了，[]

 

M

misswu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

adotable17['工作量']:=formatfloat('#0.00,strtofloat(edit17.Text));

 

乡

乡下人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

谢谢misswu，我试了一下还是不行！我做了一个试验：添加一个edit18和下面的语句：
edit18.text:=floattostr(strtofloat(edit17.text));
就是吧edit17中的文本转换到浮点数再转换回字符串在edit18中显示，然后运行
发现在edit17输入“1.1”后edit18显示的是“1.1”，而adotable17['工作量']中显示的
还是1.09999999.....这是不是说明数据类型转换过程没有错，而是保存到数据库时出问
题了？我的数据库是用access做的，字段大小指定是单精度，小数位指定自动！
拜谢了！！！