浮点数的一个小问题(20分)

  • 主题发起人 主题发起人 天空4567
  • 开始时间 开始时间

天空4567

Unregistered / Unconfirmed
GUEST, unregistred user!
想让所有浮点数的结果都保持5位小数,可有的不足5位小数,怎样
在其末位补0位足5位小数?谢谢。
 
FormatFloat('0.00000', tmpFloat);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(FormatFloat('0.00000', 123.123));
end;
 
这是显示格式。
如果需要在写入数据库时,就控制写入数据的格式为小数点后5位,该如何呢?
 
那就不能将数据库中的字段设定为Float型,要改为Decimal类型
 
呵呵...改变类型..
 
写入数据库时
可以利用
tmpFloat=round(tmpFloat*100000)/100000
但真正写入数据库的数据并不是你要的会差一点点!
应该在从数据库读的时候进行显示格式的变换
 
最精确的方法,是用字符串形式写入,用的时候,读出来再转换为相应的类型。
 
后退
顶部