(****Value是要转换的十进制数，Count是输出的二进制位数，默认32位****)function IntToBin(Value: Integer; Count: Integer=32): string;var iTemp: Integer;begin Result := \'\'; while Count0 do begin iTemp := Value shr (Count... [阅读全文]