• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中BCD和Currency类型

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

用了这些年的Delphi,竟然对Currency及TBCDField一知半解,下文给了很好的讲解,值得一读。

 一.       BCD类型

BCD即Binary-Coded Decimal?,在Delphi中,BCD字段类型可以精确保存浮点数据类型。

 Delphi支持的BCD码的数据类型名为TBCD,它的定义如下:

TBcd  = packed record

  Precision: Byte;                        { 1..64 }

  SignSpecialPlaces: Byte;                { Sign:1, Special:1, Places:6 }

  Fraction: packed array [0..31] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }

end; 

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

 Delphi的BCD函数有:

BcdAdd

计算两个BCD码的和

BcdCompare

比较两个BCD的大小

BcdDivide

BCD数据相除

BcdMultiply

BCD数据相乘

BcdPrecision

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

BcdScale

返回BCD码的小数位数

BcdSubtract

两个BCD码相减

BCDToCurr

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

BcdToDouble

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

BcdToInteger

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

BcdToStr

BCD码转换为字符串

BcdToStrF

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

CurrToBCD

Current数据类型转换为BCD码

DoubleToBcd

Double数据类型转换为BCD码

FormatBcd

格式化BCD码为字符串

IntegerToBcd

Integer整数类型转换为BCD码

IsBcdNegative

判断BCD是否为负数

NormalizeBcd

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

NullBcd

判断BCD是否为NULL

StrToBcd

字符串转换为BCD码

TryStrToBcd

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

 二.       Currency类型

和SQL SERVER中money类型一模一样,Delphi中Currency类型:

  1)  占用8个字节。

  2)  总是4位小数。

  3)  范围为:-2^63 ~ 2^63-1(-922,337,203,685,477.5808 ~ 922,337,203,685,477.5807)。存储格式相当于总是乘以10000,然后按整数格式保存。

 三.       BCD字段类型(TBCDField

现在很多数据库中都有了Decimal和Numeric数据类型,它们可以精确保存浮点类型,可以将Decimal和Numeric类型映射为BCD字段类型。

 在BDE的TDatabase控件,有一个EnableBCD选项:

在ADO的TADOQuery也有EnableBCD选项。

 

 

EnableBCD选项的用来说明如何处理数值类型(Decimal和Numeric)字段:

1)  EnableBCD为TRUE时,数值类型字段映射为TBCDField类。

2)  EnableBCD为FALSE时,数值类型字段映射为TFloatField类。

 TBCDField定义在DB.pas文件中:

TBCDField = class(TNumericField)

  private

  FCurrency: Boolean;

  FCheckRange: Boolean;

  FMinValue: Currency;

  FMaxValue: Currency;

  FPrecision: Integer;

  procedure SetCurrency(Value: Boolean);

  procedure SetMaxValue(Value: Currency);

  procedure SetMinValue(Value: Currency);

  procedure SetPrecision(Value: Integer);

  procedure UpdateCheckRange;

  protected

  class procedure CheckTypeSize(Value: Integer); override;

  procedure CopyData(Source, Dest: Pointer); override;

  function GetAsBCD: TBcd; override;

  function GetAsCurrency: Currency; override;

  function GetAsFloat: Double; override;

  function GetAsInteger: Longint; override;

  function GetAsString: string; override;

  function GetAsVariant: Variant; override;

  function GetDataSize: Integer; override;

  function GetDefaultWidth: Integer; override;

  procedure GetText(var Text: string; DisplayText: Boolean); override;

  function GetValue(var Value: Currency): Boolean;

  procedure SetAsBCD(const Value: TBcd); override;

  procedure SetAsCurrency(Value: Currency); override;

  procedure SetAsFloat(Value: Double); override;

  procedure SetAsInteger(Value: Longint); override;

  procedure SetAsString(const Value: string); override;

  procedure SetVarValue(const Value: Variant); override;

  public

  constructor Create(AOwner: TComponent); override;

  property Value: Currency read GetAsCurrency write SetAsCurrency;

  published

  { Lowercase to avoid name clash with C++ Currency type }

  property currency: Boolean read FCurrency write SetCurrency default False;

  property MaxValue: Currency read FMaxValue write SetMaxValue;

  property MinValue: Currency read FMinValue write SetMinValue;

  property Precision: Integer read FPrecision write SetPrecision default 0;

  property Size default 4;

end;

  因为TBCDField使用Currency类型来保存数据(注意:不是用TBCD来保存的),而Currency固定有且只有4位小数,所以精度超过4位请使用TFloatField(即EnableBCD位FALSE)。

* 精度太高如果使用TFloatField有时发现录入的小数保存后会发生变化,这时还可以选择使用TFMTBCDField来保存数据;

  UniDAC可参考下图设置:

修改EnableFMTBCD属性后需将UniQuery打开刷新一次(双击Active属性2次),最后将字段删除再重新拉进来, 对应的字段就会变成TFMTBCDField类型。

 

  四.       参考文献

  1. Delphi中对BCD码的直接支持 .

http://www.cnblogs.com/ywangzi/archive/2012/11/14/2769823.html


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi调用c#写的webservice中文出现乱码的问题发布时间:2022-07-18
下一篇:
Delphi单元发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap