十进制小数转换为二进制

如何把十进制小数转换成二进制？哪位大大写个代码出来参考一下啊。 问题点数：20、回复次数：8Top

1 楼maming2003（關機.睡覺!）回复于 2005-06-01 20:56:47 得分 0

50=00110010  
  Top

2 楼kwokwo（）回复于 2005-06-02 00:47:13 得分 0

50=00110010?什么意思？我问的是小数啊Top

3 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2005-06-02 01:14:59 得分 20

function   IntToBin(Value:   int64):   string;  
  var  
      i:   int64;  
  begin  
      SetLength(result,   64);  
      for   i   :=   1   to   64   do  
      begin  
          if   ((Value   shl   (i   -   1))   shr   63)   =   0   then  
              result[i]   :=   '0'   {do   not   localize}  
          else  
              result[i]   :=   '1';   {do   not   localize}  
      end;  
  end;  
   
  var  
        d:double;  
        i:int64;  
  begin  
        d:=3.056;  
        CopyMemory(@i,@d,8);  
        Result:=IntToBin(i);  
  end;Top

4 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2005-06-02 01:18:46 得分 0

function   IntToBin(Value:   int64):   string;  
  var  
      i:   Integer;  
  begin  
      SetLength(result,   64);  
      for   i   :=   1   to   64   do  
      begin  
          if   ((Value   shl   (i   -   1))   shr   63)   =   0   then  
              result[i]   :=   '0'   {do   not   localize}  
          else  
              result[i]   :=   '1';   {do   not   localize}  
      end;  
  end;  
   
  var  
        d:double;  
        i:int64;  
  begin  
        d:=3.056;  
        CopyMemory(@i,@d,8);  
        Result:=IntToBin(i);  
  end;  
  Top

5 楼hc0007（当你孤单的时候你会想起谁?）回复于 2005-06-02 07:51:18 得分 0

markTop

6 楼cncharles（旺仔）回复于 2005-06-02 08:13:53 得分 0

upTop

7 楼tfeiy（独孤冷）回复于 2005-06-02 08:59:50 得分 0

用除模法啊.....Top

8 楼kwokwo（）回复于 2005-06-02 15:36:51 得分 0

谢谢僵哥~~结帖Top

相关问题

• 小数
• inttobin
• begin
• result
• do not localize
• var

• 帖主：kwokwo
• unsigned

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载