delphi7 float的值 相加等于1 程序判定大于1

这可能是由于浮点数的精度误差导致的。在计算机中，浮点数是以二进制存储的，但有些小数用二进制表示时是无限循环的，例如1/3，这就会导致浮点数的精度误差。因此，如果两个浮点数相加等于1，在计算机内部可能会存在一些微小的精度误差，导致计算结果略微大于1。

为了解决这个问题，你可以使用比较函数来判断两个浮点数是否相等，而不是直接比较它们的值。例如，你可以写一个判断函数来比较两个浮点数是否相等：

function IsEqualFloat(a, b: Double; eps: Double = 1e-6): Boolean;
begin
  Result := Abs(a - b) < eps;
end;

其中，`eps` 参数是误差允许的范围，你可以根据实际情况设置它的值。使用这个函数来比较浮点数时，就可以判断它们是否相等了。