Delphi CompareValue函数的使用

原创 2016年02月12日 13:04:53

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

ibatis 的语句中 isEqual、property、compareValue,prepend 都代表什么意思

isequal:作比较用相当于String 里的equal方法, property:指定比较属性的名称, compareValue:表示要比较的参数, prepend:表示追加比较条件...

Delphi数学常用操作函数一

1.Abs function Abs(X);:返回指定数值的绝对值。例如: Abs(-15); //结果为15   2. Ceil、Floor Ceil function Ceil(co...
  • kimifdw
  • kimifdw
  • 2013年02月17日 09:02
  • 4450

[DevExpress]GridControl中的GridView内容打印

private void btnPrint_Click(object sender, EventArgs e) { Printable...

delphi中SQL避免非法字符,单引号(')出错的三种方法

由于 ' (单引号)是SQL的标准字符符号,所以在SQL语句中间遇到 ' 时要做特殊处理。 1. 使用 QuotedStr 函数 QuotedStr的作用是使字符串包含单引号:  在字符的前后加上( ...

delphi 中locate函数的使用方法

TDataSet控件以及它的继承控件,例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据。程序首先必须使用SQL命令从后端数据库中取得数据...

使用Delphi声明C++带函数的结构体实战

在小组开发中,应用程序部分采用Delphi7,一些组件使用C++做。在今天将一个动态库的C++接口声明头文件转换为D7的Unit单元时,一切都很顺利,直到遇到下面这样一个另类的东西: typ...

Delphi中使用Win32 API创建内建消息循环的线程函数

Delphi中使用Win32 API创建内建消息循环的线程函数   1.线程创建    HANDLE CreateThread(     LPSECURITY_ATTRIBUTES lpTh...

DELPHI字符串处理函数大全(收藏在此方便以后查找使用)

uses StrUtils;【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; ...
  • bjtbjt
  • bjtbjt
  • 2013年08月05日 21:51
  • 3482

delphi 中一种好用的数组定义方法以及函数嵌套的使用源代码

type TArr = array of integer;function abc(a:integer):Tarr; var tempArr:TArr; begin ...

使用Delphi内置函数读写INI文件

下面介绍一些对.INI文件读写时相关的类及其属性方法。 1、TIniFile对象 以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法,专门用来对IN...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi CompareValue函数的使用
举报原因:
原因补充:

(最多只允许输入30个字)