Question

Delphi中两个数字调试显示值相等，但是用'<>'判断为true。求指导！！！

var sumProportion0,sumProportion1:double;
......
sumProportion0:=0.0; //有效值为-1的总权重
sumProportion1:=0.0; //有效值为1的总权重
......//sumProportion0和sumproportion1都变成了1
if( sumProportion0<>1.0 ) then
begin
showMessage('有效值为-1的总权重不为1!');
exit;
end;
if( sumProportion1<>1.0 ) then
begin
showMessage('有效值为1的总权重不为1!');
exit;
end;
调试时，sumproportion0和sumproportion1的值都是1，但是第一个判断为flase，第二个确为true，进入语句。

Answer 1

对于浮点数的比较，由于系统的原因，一般采用以下方法：

abs(a1 - a2) < 0.0001

Answer 2

单点浮点数有误差的, 1.0 存储在内存中有可能是 0.9999999999.

追问

我设置的是double型

Answer 3

变量是什么类型的

追问

double型