应群友的要求写的一个小函数,将一个32位整数转换为其二进制表示: function IntToBinStr(v: Integer): String; var b: array [0 .. 32] of Char; o: Integer; const Chars: array [0 .. 1] of Char = (‘0
应群友的要求写的一个小函数,将一个32位整数转换为其二进制表示: function IntToBinStr(v: Integer): String; var b: array [0 .. 32] of Char; o: Integer; const Chars: array [0 .. 1] of Char = (‘0
登录 |