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