整形转化成二进制数值或二进制字符

Question

INTTOHEX 将整型转化成十六进制的字符
请教哪个函数将整型转化成二进制的字符?

Answer 1

我找了一下 还没找到
这样吧 自己写一个
先用inttohex变成hex 存在tmp:string中吧
再
mystr:='';
for f:=1 to length(tmp) do
    bstr:=bstr+hextob(tmp[f]);
function hextob(h:char):string;
begin
  case h of 
   '1':return:='0001';
   '2':return:='0010'
 。。
   'f':return:='1111'
  end;
end;

Answer 2

不好意思
bstr应为mystr