|
|
|
|
IntToBin(2-16进制转换函数) |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
(****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
|
|
相关文章：相关软件： |
|
本类阅读TOP10