RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

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

作者:admin 来源: 日期:2016/1/23 23:37:25 人气: 标签:


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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料