如何将一串字符串转成BCD码

Question

请问如果把一字符串转换成16进制的BCD码，如： 字符串: C1C11750，转成$C1 $C1 $17 $50 

Answer 1

copy 来的uses IdGlobalfunction 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;