十进制转换成BCD码函数

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;