摘要： //十进制 to 二进制function IntToBin(Value: LongInt;Size: Integer): String;vari: Integer;beginResult:='';for i:=Size-1 downto 0 do begin if Value and (1 shl i)<>0 then begin Result:=Result+'1'; end els... 阅读全文