Delphi中对BCD码的直接支持

最近在写一个接口时,得到SQL Server中numeric类型字段为 ftbcd,需要将BCD码转换为其它数据类型。找到些资料,记录一下:
首先,Delphi支持的BCD码的数据类型名为TBCD,它的定义如下:
type
TBcd = packed record
Precision: Byte; { 精度,1..64 }
SignSpecialPlaces: Byte; { 符号位等信息的组合,按位表示,D7:符号位,D6:Special(不知道翻译成什么意思较好), D5~D0:Places }
Fraction: packed array [0..31] of Byte; { BCD值,每个字节能够表示00~99范围内的值,Fraction[0]是最高位}
end;

对BCD的支持是在FMTBcd单元中,所以要使用BCD函数,则需要引用此单元。

Delphi的BCD函数有:
BcdAdd procedure
计算两个BCD码的和

BcdCompare function
比较两个BCD的大小

BcdDivide procedure
BCD数据相除

BcdMultiply procedure
BCD数据相乘

BcdPrecision function
返回BCD的数据个数。如BCD的123返回值为3,BCD值为9382时返回值为4。

BcdScale function
返回BCD码的小数位数

BcdSubtract procedure
两个BCD码相减

BCDToCurr function
转换BCD码为Current格式的数据类型

BcdToDouble function
BCD码转换为Double格式的数据类型

BcdToInteger function
BCD码转换为Integer格式的数据类型

BcdToStr function
BCD码转换为字符串

BcdToStrF function
BCD码转换为带格式控制的字符串

CurrToBCD function
Current数据类型转换为BCD码

DoubleToBcd function
Double数据类型转换为BCD码

FormatBcd function
格式化BCD码为字符串

IntegerToBcd function
Integer整数类型转换为BCD码

IsBcdNegative function
判断BCD是否为负数

NormalizeBcd function
将一个BCD的值根据给定的精度和小数位数转换为另外一个BCD码的值

NullBcd constant
判断BCD是否为NULL

StrToBcd function
字符串转换为BCD码

TryStrToBcd function
字符串转换为BCD码,转换失败返回给定的默认值

你可能感兴趣的:(Delphi中对BCD码的直接支持)