关闭

Delphi CompareValue函数的使用

标签: Delphi
1060人阅读 评论(0) 收藏 举报
分类:

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

1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:30716次
    • 积分:582
    • 等级:
    • 排名:千里之外
    • 原创:27篇
    • 转载:0篇
    • 译文:0篇
    • 评论:9条
    最新评论