为什么是5，而不是5.00？*****请进来一看******

procedure   TForm1.Button1Click(Sender:   TObject);  
  var   temps:Real;  
  begin  
      temps:=4.95478;  
      temps:=Trunc(temps+0.5);  
      temps:=StrToFloat(FormatFloat('0.00',temps));  
      showmessage(FloatToStr(temps));  
  end;  
  问题点数：20、回复次数：3Top

1 楼flyonet（人生如梦【★】梦如人生）回复于 2001-11-09 09:53:43 得分 0

up   upTop

2 楼genphone_ru（哎，什么都要学，真累）回复于 2001-11-09 09:54:01 得分 20

procedure   TForm1.Button1Click(Sender:   TObject);  
  var   temps:Real;  
          ss   :String;  
  begin  
      temps:=4.95478;  
      temps:=Trunc(temps+0.5);  
      ss:=FloatToStrF(temps,ffFixed,10,2);  
      showmessage(ss);  
  end;  
     
   
    Top

3 楼asgq（强子）回复于 2001-11-09 09:55:25 得分 0

StrToFloat   '5.00'->5Top

相关问题

• real
• temps
• showmessage
• trunc
• ss
• tobject
• procedure tform1
• button1click
• sender
• begin

• 帖主：flyonet
• genphone_ru

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