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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货