| 本月文章推荐 |
IntToBin(2-16进制转换函数)发表日期：2006-2-4
|
|
(****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 |
| 上一篇：systemparametersinfo详细用法
人气:6227 下一篇：Delphi2005学习笔记3——数组参数的研究 人气:5021 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
