起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 149|回复: 1

浮点数的加减出错

[复制链接]
发表于 2010-2-4 11:29:47 | 显示全部楼层 |阅读模式
SysUtils.strtofloat(Ayf.Strings[iindex]) + Detail.DataSet.FieldByName('FEE_AMNN').AsFloat
SysUtils.strtofloat(Ayf.Strings[iindex])  = -14834.1
Detail.DataSet.FieldByName('FEE_AMNN').AsFloat = 14834.1
SysUtils.strtofloat(Ayf.Strings[iindex]) + Detail.DataSet.FieldByName('FEE_AMNN').AsFloat = 3.64153152077051E-13
版本 3012  
我怎么能显示结果是 0 啊?
回复

使用道具 举报

发表于 2010-2-4 11:54:54 | 显示全部楼层
var j  :Float;
j:=SysUtils.strtofloat(Ayf.Strings[iindex])

Detail.DataSet.FieldByName('FEE_AMNN').AsFloat +j
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 15:11 , Processed in 0.036914 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表