Delphi CompareValue函数的使用

CompareValue

    一、函数声明

function CompareValue ( const A, B : Integer|Int64 ) : TValueRelationship;
function CompareValue ( const A, B : Single|Double|Extended; delta : Single|Double|Extended ) : TValueRelationship;

    二、功能

    比较比较两浮点数大小

    三、例子

var
  A : Single;
  B : Single;
  C : Single;

begin
  A := 111.01;
  B := 111.01;
  C := 111.11;

  // 比较两个相等的浮点数
  case CompareValue(A, B) of
    LessThanValue    : ShowMessage('A < B');
    EqualsValue      : ShowMessage('A = B');
    GreaterThanValue : ShowMessage('A > B');
  end;

  // 比较两个不相等的浮点数
  case CompareValue(A, C) of
    LessThanValue    : ShowMessage('A < C');
    EqualsValue      : ShowMessage('A = C');
    GreaterThanValue : ShowMessage('A > C');
  end;

  // 比较2不平等的浮动,但允许 + / - 0.2的差异
  case CompareValue(A, C, 0.2) of
    LessThanValue    : ShowMessage('A < C');
    EqualsValue      : ShowMessage('A = C');
    GreaterThanValue : ShowMessage('A > C');
  end;
end;

显示结果：
   A = B
   A < C
   A = C