十进制转换成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 do 
  begin 
    x1:=StrToInt(s[j]); 
    s1:=inttobin(x1); 
    s1:=Copy(s1,Length(s1)-3,4); 
    result:=result+s1; 
  end
end
posted @ 2012-11-28 17:36  马儿快跑  阅读(3539)  评论(0编辑  收藏  举报