bee2518(迷茫ing) 看過來！！！！

http://community.csdn.net/Expert/topic/3598/3598916.xml?temp=.5276453  
  帖子已結  
  大哥，我這個還是編譯不了阿！！  
   
  我還想問下，用什麽函數來控制float小數點位到2位！  
   
  比如：  
  function   TDmSys.UnitTran(const   SUnit,   DUnit:   string;   Num:   real):   real;  
  begin  
      //lb--->KG  
      if   (UpperCase(SUnit)='LB')   and   (UpperCase(DUnit)='KG')   then  
          Result   :=   Num/2.20462;  
   
      if   (UpperCase(SUnit)='KG')   and   (UpperCase(DUnit)='LB')   then  
          Result   :=   Num*2.20462;  
   
  end;  
  --------------------------------------------------------------------  
  函数：formatFloat('0.00',value)  
   
  function   TDmSys.UnitTran(const   SUnit,   DUnit:   string;   Num:   real):   real;  
  begin  
      //lb--->KG  
      if   (UpperCase(SUnit)='LB')   and   (UpperCase(DUnit)='KG')   then  
          Result   :=formatFloat（‘0.00',   Num/2.20462);  
   
      if   (UpperCase(SUnit)='KG')   and   (UpperCase(DUnit)='LB')   then  
          Result   :=   formatFloat（‘0.00',   Num*2.20462);  
  end;  
  -------------------------------------------------------------------------  
  好像是報語法錯誤！ 问题点数：50、回复次数：6Top

1 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2004-12-01 10:00:23 得分 10

function   TDmSys.UnitTran(const   SUnit,   DUnit:   string;   Num:   real):   real;  
  你是不是拷贝错了，里面有中文输入  
   
  看下这个  
  begin  
      //lb--->KG  
      if   (UpperCase(SUnit)='LB')   and   (UpperCase(DUnit)='KG')   then  
          Result   :=   FormatFloat('0.00',Num/2.20462);  
   
      if   (UpperCase(SUnit)='KG')   and   (UpperCase(DUnit)='LB')   then  
          Result   :=   FormatFloat('0.00',Num*2.20462);  
   
  end;  
  Top

2 楼bee2518（迷茫ing）回复于 2004-12-01 10:01:12 得分 0

函数：formatFloat('0.00',value)  
   
  function   TDmSys.UnitTran(const   SUnit,   DUnit:   string;   Num:   real):   real;  
  begin  
      //lb--->KG  
      if   (UpperCase(SUnit)='LB')   and   (UpperCase(DUnit)='KG')   then  
          Result   :=formatFloat（'0.00',   Num/2.20462);  
   
      if   (UpperCase(SUnit)='KG')   and   (UpperCase(DUnit)='LB')   then  
          Result   :=   formatFloat（'0.00',   Num*2.20462);  
  end;  
   
  这样好了，上面把‘0.00'的左点号写错了，不好意思Top

3 楼freemanE（）回复于 2004-12-01 10:24:14 得分 0

[Error]SysDm.pas(340):Incompatible   types:'Real'   and   'String'Top

4 楼freemanE（）回复于 2004-12-01 10:30:07 得分 0

上面的輸入法狀態下的符號我都看到了。改了過來還是會報上面的類型不匹配！Top

5 楼bee2518（迷茫ing）回复于 2004-12-01 10:30:40 得分 40

function   UnitTran(const   SUnit,   DUnit:   string;   Num:   real):   real;  
  begin  
      //lb--->KG  
      if   (UpperCase(SUnit)='LB')   and   (UpperCase(DUnit)='KG')   then  
          Result   :=strtofloat(formatFloat('0.00',   Num/2.20462));  
   
      if   (UpperCase(SUnit)='KG')   and   (UpperCase(DUnit)='LB')   then  
          Result   :=   strtofloat(formatFloat('0.00',   Num*2.20462));  
  end;  
  向你道歉，没试就向你发答案，现在可以了，我试过了Top

6 楼freemanE（）回复于 2004-12-01 10:47:50 得分 0

:)  
  嗯。謝謝了！！Top

相关问题

• real
• sunit
• uppercase
• dunit
• kg
• formatfloat
• unittran
• lb
• num
• then result

• 帖主：freemanE
• nyf1220
• bee2518

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