十六进制的BCD码转成十进制

十六进制的BCD码转成十进制

var
  I:integer;
  bcd1:tbcd;

  ibuff:array[0..1] of byte;

  iBuffstr:string;

begin
  bcd1.Fraction[0]:=$20;
  bcd1.Fraction[1]:=$05;
  bcd1.Precision:=4;
  i:=bcdtointeger(bcd1);
  showmessage(inttostr(i));

 

//另一种

  iBuffstr:=inttohex(ibuff[0],2);

 

  ibuff[0]:=strtoint('$'+ibuffstr);

buff
end;