简单问题,困扰很久,请各位帮忙-CSDN论坛

CSDN论坛 > Delphi > 语言基础/算法/系统设计

简单问题,困扰很久,请各位帮忙 [问题点数：100分，结帖人ffwin]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅推荐一个单机版的好用的透明文档加密软件 ⋅大小写转换不一样 ⋅用过QQ的,或者正用QQ的请进 更多帖子 关注私信空间博客 ffwin 本版专家分：6866 结帖率 100%: procedure TForm1.Button1Click(Sender: TObject);
var
  f1, f2, f3: single;
  i1: integer;
begin
  i1 := 18137371;
  f1 := 0.0;
  f2 := f1 + i1;
  f3 := f2;
  Edit1.Text := FloatToStr(f3);
end;

想知道为什么  edit1.text 结果总为18137372,我用的D7

0 2009-12-13 23:23:41

回复数 3 只看楼主引用举报楼主

fenshm 本版专家分：554: Single类型的数据在计算的时候会产生进位误差。

0 2009-12-14 00:04:32

只看TA 引用举报 #1 得分 100

fenshm 本版专家分：554: 你把数字换为7位以内有效数就不会了。
刚刚用D7测试过。

0 2009-12-14 00:16:47

只看TA 引用举报 #2 得分 0

⋅推荐一个单机版的好用的透明文档加密软件 ⋅大小写转换不一样 ⋅用过QQ的,或者正用QQ的请进 更多帖子 关注私信空间博客 ffwin 本版专家分：6866: 是的,将single换成double就没有问题了

0 2009-12-14 08:52:24

只看TA 引用举报 #3 得分 0

收藏帖子