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

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > Delphi > 综合文章

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

作者:未知时间:2004-12-03 12:12 出处:Blog 责编:chinaitpower

摘要：暂无

(****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

关闭本页