浮点数的加减出错

yt_zy · 发表于 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 啊？

shangxy · 发表于 2010-2-4 11:54:54

var j :Float;
j:=SysUtils.strtofloat(Ayf.Strings[iindex])

Detail.DataSet.FieldByName('FEE_AMNN').AsFloat +j

		自动登录	找回密码
密码			立即注册