格式化数据 NAN .......

var  
        RevData:Extended;  
        Str:String;  
  begin  
        RevData:=?  
        Str:=Format('%.5f',[RevData]);//请问   什么时候   Str   返回字符串为   NAN  
           
  end;  
   
  问题点数：20、回复次数：4Top

1 楼haha20（haha21）回复于 2006-03-30 09:01:10 得分 0

var  
        RevData:Extended;  
        Str:String;  
  begin  
        RevData:=?  
        Str:=Format('%.5f',[RevData]);//请问   什么时候   Str   返回字符串为   NAN  
           
  end;  
   
  一般情况下怎么解决这样的问题？Top

2 楼liangqingzhi（老之）回复于 2006-03-30 09:11:24 得分 20

出现0.0/0.0这种情况时返回NAN，见math单元：  
   
  NaN                   =     0.0   /   0.0;  
      (*$EXTERNALSYM   NaN*)  
      (*$HPPEMIT   'static   const   Extended   NaN   =   0.0   /   0.0;'*)  
      Infinity         =     1.0   /   0.0;  
      (*$EXTERNALSYM   Infinity*)  
      (*$HPPEMIT   'static   const   Extended   Infinity   =   1.0   /   0.0;'*)  
      NegInfinity   =   -1.0   /   0.0;  
      (*$EXTERNALSYM   NegInfinity*)  
      (*$HPPEMIT   'static   const   Extended   NegInfinity   =   -1.0   /   0.0;'*)  
  Top

3 楼haha20（haha21）回复于 2006-03-30 11:18:39 得分 0

但是   我还没有来得及除啊  
  Move(pchar(@ReceiveBuf[54])^,Pchar(@RevValue)^,4);  
  showmessage(FloatToStr(RevValue));  
  结果：  
  //////////////  
  //NAN/////////  
  //////////////  
  这是什么原因呢？  
  谢谢楼上大哥的恢复！可是我还是不明白   ！Top

4 楼haha20（haha21）回复于 2006-03-30 11:29:10 得分 0

不好意思   打错字了!  
  谢谢楼上大哥的指导！  
  Top

相关问题

• revdata
• nan
• hppemit
• neginfinity
• externalsym
• infinity
• extended
• 返回
• str
• static const

• 帖主：haha20
• liangqingzhi

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