Delphi 下的各個進制轉換函數

代碼 // 十進制  to  二進制 function  IntToBin(Value: LongInt;Size: Integer): String; var i: Integer; begin Result: = '' ; for  i: = Size - 1   downto   0   do   begin      if  Value  and  ( 1   shl  i) <> 0  

>>阅读原文<<