十进制怎么转成BCD码啊

Question

十进制怎么转成BCD码啊

Answer 1

先转化为字符串，然后分解成单个数字进行来替换（写个case，分别写出0~9的BCD码是多少，然后进行判断替换），替换好了再联到一起就OK，难度应该不大

Answer 2

看看 FMTBcd 單元中的BcdToStr BcdToStrF FormatBcd TryStrToBcd

Answer 3

uses IdGlobal 
十进制转换成BCD码函数 
function TForm1.inttobcd(x: Integer): string; 
var 
  s,s1:string; 
  i,j,x1:Integer; 
begin 
  s:=IntToStr(x); 
  i:=Length(s); 
  result:=''; 
  for j:=1 to i do 
  begin 
    x1:=StrToInt(s[j]); 
    s1:=inttobin(x1); 
    s1:=Copy(s1,Length(s1)-3,4); 
    result:=result+s1; 
  end; 
end; 

Answer 4

楼主理解BCD码吗？0X23是BCD码？

Answer 5

BCD代码，Binary-Coded Decimal‎，简称BCD，称BCD码或二-十进制代码，亦称二进码十进数。是一种二进制的数字编码形式，用二进制编码的十进制代码。这种编码形式利用了四个位元来储存一个十进制的数码，使二进制和十进制之间的转换得以快捷的进行。

Answer 6

常用BCD码：十进制数 8421码 5421码 2421码 余3码 余3循环码，一般使用的都是8421码，上面的代码也是获取8421码。