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

[xiangdie]

转换后再一位一位比较是否是1，是用右移吗？

[Pipi0714]

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

[keyz]

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;

[王集鹄]

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

[xiangdie]

thank everybody!

[ddvboy]

up