16,748
社区成员
发帖
与我相关
我的任务
分享BcdAdd在我机器上出现意外，大家可以试试看是不是这个结果！
use FMTBcd;
var
a, c, e: TBcd;
begin
a := StrToBcd('50');
c := StrToBcd('50');
BcdAdd(a, c, e); //相加，得到的结果应是100, 但事实是0, 在50到100之间的数相加都有问题，郁闷啊
ShowMessage(BcdToStr(e));//显示为0, 应该是100
end;
var
a, c, e: TBcd;
begin
a := StrToBcd('50');
c := StrToBcd('50');
BcdAdd(a, c, e); //相加，得到的结果应是100, 但事实是0, 在50到100之间的数相加都有问题，郁闷啊
ShowMessage(BcdToStr(e));//显示为0, 应该是100
end;
...全文
请发表友善的回复…
发表回复
huojiehai 2005-06-15
- 打赏
- 举报
我的是delphi7,可能是delphi7的问题
lw549 2005-06-15
- 打赏
- 举报
D6,没补丁
lw549 2005-06-15
- 打赏
- 举报
我这里正常,是100
paranoia190 2005-06-15
- 打赏
- 举报
和你一样
也是0
也是0
l_xiaofeng 2005-06-15
- 打赏
- 举报
delphi7的问题
