对那个10-2进制转换的程序，我很高兴很多朋友都提供了比我要简洁的好方法，这是看到一位朋友的BLOG后,写的10-16的转换，一开始我还写错了，呵呵，现在将正确的留在网志，他要求是自己写转换而不是利用类似Format(\'Integer %0:d in Hexis %0:.8x\', [Value]);当然,有简单方法我们要用简单方法哦接着介绍自己的方法var HexArr: arra... [阅读全文]

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