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

更止女人痛

2016-02-19 16:22

今天图老师小编给大家精心推荐个IntToBin(2-16进制转换函数)教程，一起来看看过程究竟如何进行吧！喜欢还请点个赞哦~

(****Value是要转换的十进制数，Count是输出的二进制位数，默认32位****)
　　function IntToBin(Value: Integer; Count: Integer=32): string;
　　var
　　 iTemp: Integer;
　　begin
　　 Result := '';
　　 while Count0 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
　　
　　

展开更多（50%）