十进制转换成BCD码函数

最新推荐文章于 2023-09-15 00:45:32 发布

weixin_33755557

最新推荐文章于 2023-09-15 00:45:32 发布

阅读量860

点赞数

文章标签： c/c++ 嵌入式 c#

本文介绍了一个将十进制整数转换为BCD码的函数实现过程，详细阐述了从十进制到BCD码的转换原理，并通过代码实例展示了具体操作步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;  