IntToBin(10-2进制转换函数)
来源:互联网 发布:不学java直接学安卓 编辑:程序博客网 时间:2024/05/16 05:30
(****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
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
- IntToBin(10-2进制转换函数)
- 关于imustworkhard的IntToBin(2-16进制转换函数)的效率问题
- 进制转换函数
- 进制转换函数
- 进制转换函数
- 进制转换函数
- itoa()函数,10进制转换到(2~36)进制
- itoa()函数,10进制转换到(2~36)进制
- ORACLE进制转换函数
- ORACLE 进制转换函数
- php进制转换函数
- delphi进制转换函数
- php进制转换函数
- itoa()进制转换函数
- php进制转换函数
- php进制转换函数
- Itoa进制转换函数
- 任意进制转换函数
- 表格对决CSS--一场生死之战
- struts报错和解决方法
- 使用模板表达式的向量类
- 使用Office Web Components (OWC)来创建统计图的一个数据类。
- CMMI SPP文档模版(作者:林锐)
- IntToBin(10-2进制转换函数)
- 系统的数据库支持
- 邮件客户端软件常见故障
- 由VC版的一篇牢骚帖引发的牢骚
- 使用MiddleGen 产生hibernate的数据库表映射文件
- WINDOWS溢出资料
- i = i++;在c++和java下的不同结果。
- 唉~这种SOHO的生活啊。
- 软件体系结构的概念