我们面临数据类型双重比较的问题：
if(p > pmax) then
begin
Showmessage('');
end
如果两个值都是 100（p=100 和 pmax = 100），那么它也在 if 子句中。
【问题讨论】：
There are no if-loops, but only if statements! 。
Math.pas 单元包括处理浮动类型比较和相等的函数，例如 SameValue()、IsZero()、CompareValue()。
const
EPSILON = 0.0000001;
begin
if CompareValue(p, pMax, EPSILON) = GreaterThanValue then
ShowMessage('p greater than pMax');
常量GreaterThanValue在Types.pas中定义
如果您要比较非常大的值，您不应为 epsilon 使用常量，而应根据您要比较的值计算 epsilon 值。
var
epsilon: double;
begin
epsilon := Max(Min(Abs(p), Abs(pMax)) * 0.000001, 0.000001);
if CompareValue(p, pMax, epsilon) = GreaterThanValue then
ShowMessage('p greater than pMax');
请注意，如果您使用CompareValue(a, b, 0) 或在XE2 及更高版本中使用CompareValue(a, b)，Delphi 会自动为您填写一个好的epsilon。
来自德尔福Math单位：
function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;
begin
if Epsilon = 0 then
Epsilon := Max(Min(Abs(A), Abs(B)) * ExtendedResolution, ExtendedResolution);
if A > B then
Result := (A - B) <= Epsilon
else
Result := (B - A) <= Epsilon;
end;
从 Delphi XE2 开始，现在所有这些函数都有重载，不需要 epsilon 参数而是为您计算一个（类似于为 epsilon 传递 0 值）。为了代码清晰，我建议调用这些更简单的函数并让 Delphi 处理 epsilon。
不使用没有 epsilon 参数的重载的唯一原因是当性能至关重要并且您希望避免重复计算 epsilon 的开销时。
【讨论】：
比较双打有几个问题。一个问题是，由于四舍五入，您所看到的并不完全是您所得到的。您可以有 99.999999996423 和 100.00000000001632，它们都四舍五入到 100，但它们不相等。
解决方案是使用一个边距，这样，如果两个 Doubles 的差异在边距之内，您就可以接受它们相等。
您可以使用边距作为可选参数来创建 IsEqual 函数：
function IsEqual(const ANumber1, ANumber2: Double; const AMargin: Double = cMargin): Boolean;
begin
Result := Abs(ANumber1-ANumber2) <= AMargin;
end;
【讨论】：