怎么写一个函数将BCD转整数？

Question

那位大哥帮帮小弟!

Answer 1

一个字节的：function BCDToInt(bcdByte:Byte):integer;
begin
  Result:=(bcdByte div 16)*10 + (bcdByte mod 16);
end;多字节一样的道理。
假如:
bcdBytes:array[1..cnt]of byte;  //cnt是个正整数；
idx:integer;
rslt:integer;计算：
rslt:=0；
for idx:=1 to cnt do 
begin
  rslt:=(rslt)*100+BCDToInt(bcdBytes[idx]);
end;

Answer 2

StrToInt(BcdToStr([Bcd类型]))机子没有Delphi测试~~
自己试试吧~~