IntToBin(2-16进制转换函数)

(****Value是要转换的十进制数，Count是输出的二进制位数，默认32位****)

function IntToBin(Value: Integer; Count: Integer=32): string;

var

iTemp: Integer;

begin

Result := '';

while Count>0 do

begin

iTemp := Value shr (Count-1) and 1;

case iTemp of

1: Result := Result+'1';

0: Result := Result+'0';

end;

Dec(Count);

end;

end;

自己写的，不知有否漏洞，测试了一下

ShowMessage(IntToBin(-1,8)); //输出11111111

ShowMessage(IntToBin(333333)); //输出00000000000001010001011000010101