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;
...全文
1215打赏收藏
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;