十进制数转化成二进制用什么函数

Question

用这两个函数试一试：
inttohex：整形转换为十六进制
hextobinary:十六进制转换为二进制不知是不是此函数，肯定有

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 i,n:integer;
 s:string;
begin
 n:=2147483647;
 s:='';
 for i:=1 to 32 do
 begin
   s:= inttostr(n and 1)+s;
   n:=n shr 1;
 end; showmessage(s);
end;

Answer 2

//请参考
http://kingron.myetang.com/zsfunc01.htm

Answer 3

  thank everybody!