delphi 一个整数转其二进制表示的小函数

本文整理自网络，侵删。

 
function IntToBinStr(v: Integer): String;
var
  b: array [0 .. 32] of Char;
  o: Integer;
const
  Chars: array [0 .. 1] of Char = ('0', '1');
begin
  o := 31;
  if v <> 0 then
  begin
    while v <> 0 do
    begin
      b[o] := Chars[v and $1];
      v := v shr 1;
      Dec(o);
    end;
    b[32] := #0;
    Result := PChar(@b[o + 1]);
  end
  else
    Result := '0';
end;
 
来源：http://blog.qdac.cc/?p=3443
 

相关阅读 >>

Delphi中怎么判断一个文件夹是否为空

Delphi idhttp post request

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi判断驱动器类型

Delphi 虚拟桌面服务程序

Delphi 压缩图片算法

Delphi idhttp实现地址自动转向

Delphixe firemonkey 如何画图

Delphi 快速获取文件大小（使用_lopen和fileseek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）

[Delphi]钩子(hook)机制的使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 一个整数转其二进制表示的小函数