请教一个关于浮点数比较的问题，对老答案的疑惑

[LIIJIE1986]

小妹研究一些关于浮点数比较的帖子，基本上是两总方法。
一个是绝对值比较：
if (abs(f1-f2) <e)
then
...
else
...
另外是用delphi 自带的 Math单元
function CompareValue(const A: Extended; const B: Extended; Epsilon: Extended): TValueRelationship; overload;

小妹就茫然在这里了，我看推存第一种方法的人不少，难道delphi自带的CompareValue函数有BUG吗？

多谢各位高手指点

[haitao]

第一种是最原始也最有效的
第二种没用过，可能是改进的吧

[Oraclers]

function SameValue(const A, B: Double; Epsilon: Double): Boolean;
begin
if Epsilon = 0 then
Epsilon := Max(Min(Abs(A), Abs(B)) * DoubleResolution, DoubleResolution);
if A > B then
Result := (A - B) <= Epsilon
else
Result := (B - A) <= Epsilon;
end;

function CompareValue(const A, B: Double; Epsilon: Double): TValueRelationship;
begin
if SameValue(A, B, Epsilon) then
Result := EqualsValue
else if A < B then
Result := LessThanValue
else
Result := GreaterThanValue;
end;
請看上述的在Math單元CompareValue函數的實現，原理與abs(a-b)>e是一樣的，但覺得效率可能不如後者，且我認為後者來得簡單，而且也不用再多記一個函數。

[dinoalex]

很少处理这类问题, 帮顶, 或者你可以多用数据来测试, 哪种最好就用哪种