浮点数问题，是DELPHI的BUG吗？谁能给个合理的解释？谢谢~~UP有分

[majiaeryi]

var
e: extended;
begin
e := 0;
with self.ADOQuery1 do
begin
close;
sql.Text := 'select ''0.00001'' as a, ''1.00000'' as b';
open;
first;
while not eof do
begin
e := e + fieldbyname('a').AsFloat * fieldbyname('b').AsFloat;
next;
end;
if e=0.00001 then
edit1.Text := '等于'
else
Edit1.Text := '不等于';
end;
end;

结果显示：不等于!!!!

why？who can tell me?~~~

[Elysium]

好像问过了吧

[swcsoft]

没试过这个问题。。

[xiaotao2004]

设置断点看看E的值是多少? 看看楼下的,

[Elysium]

delphi数值计算的重大隐患bug! 怎样解决?
作　　者： lanchat (lanchat)

http://community.csdn.net/Expert/topic/4959/4959430.xml?temp=.2142603

[Elysium]

delphi数值计算的重大隐患bug! 怎样解决?
作　　者： lanchat (lanchat)

http://community.csdn.net/Expert/topic/4959/4959430.xml?temp=.2142603

[eiger]

我不想混分，但是此问题确是没有细心看过。帮你顶

[majiaeryi]

我错了~~~

今天才知道这个常识，谢谢楼上各位，尤其：Elysium(Elysium)