富翁们,来看看,我想将小数点后面的0留下,如何办?(15)

  • 主题发起人 主题发起人 楚辞
  • 开始时间 开始时间

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
文本文件内容:检测环境描述:22.0℃ 35.0% 100.20kPa导出为WEB报表,希望在报表中显示22.0℃ 35.0% 100.20kPa。可结果显示为22℃ 35% 100.2kPa,不是我想要的。当检测环境描述:22.6℃ 35.3% 100.25kPa,可以显示为22.6℃ 35.3% 100.25kPa是我所想要的。代码如下:function TfrmMain.ShowReport: String;var sValue: String;begin FHTML := LoadReportCode; with g_Report do begin SetRptValue('[A1]',A1); SetRptValue('[A9]',A9); //--------------------- //这部分修改了 // sValue := Format(g_Env,[A10A,A10B,'%',A10C]); sValue := DecEnvFloat(A10A,A10B,A10C); SetRptValue('[A10]',sValue); // sValue := Format(g_Env,[A10A,A10B,'%',A10C]); // SetRptValue('[A10]',sValue); //--------------------- SetRptValue('[B4]',B4); SetRptValue('[B5]',B5); SetRptValue('[B6]',B6); SetRptValue('[B7]',B7); SetRptValue('[B8]',B8); SetRptValue('[B9]',B9); SetRptValue('[C13]',C13); SetRptValue('[C14]',C14); SetRptValue('[C15]',C15); SetRptValue('[C16]',C16); SetRptValue('[C17]',C17); SetRptValue('[C18]',C18); SetRptValue('[C19]',C19); SetRptValue('[C20]',FormatFloat('0.00',C20)); SetRptValue('[C21]',FormatFloat('0.0000',C21)); SetRptValue('[C22]',C22); SetRptValue('[C23]',C23); SetRptValue('[C25]',C25); SetRptValue('[C27]',FormatSup(C27)); SetRptValue('[E3]',E3); SetRptValue('[E4]',E4); SetRptValue('[E5]',E5); SetRptValue('[E6]',E6); SetRptValue('[E7]',E7); SetRptValue('[E8]',E8); SetRptValue('[E9]',E9); SetRptValue('[F13]',F13); SetRptValue('[F14]',F14); SetRptValue('[F15]',F15); SetRptValue('[F16]',F16); SetRptValue('[F17]',F17); SetRptValue('[F18]',F18); SetRptValue('[F19]',F19); SetRptValue('[F20]',FormatFloat('0.0000',F20)); SetRptValue('[F21]', FormatFloat('0.00',F21)); end; if g_AutoSaveReport then Result := AutoSaveReportToFile else Result := SaveReportToFile; ResetViewer(Result);end; 一个函数: function TfrmMain.DecEnvFloat(const A, B, C: Extended): String;var sA,sB,sC: String;begin sA := FloatToStr(A); sB := FloatToStr(B); sC := FloatToStr(C); Result := Format(g_Env,[sA,sB,'%',sC]);end;
 
Delphi世界qq群23981160
 
Format('%f.1',[f])这样不行?
 
不行。试了结果为22℃ 35%f.1 100.2kPa
 
自己编写得了:S:=FloatToString(温度的数值);if pos('.',s)=0 then s:=s+',0';
 
不能自己编。环境数据是从文本文件里导出来的。每天做样有20个文本文件了。
 
哎,那么你也可以把文本文件导入前处理啊:读入文本到Tstringlist,分析每行文本,找 ℃ ,如果前面没有.,那么加上.0啊!
 
检测环境描述:22.0℃ 35.0% 100.20kPa,这是文本文件本生内容。wql, 读入文本到Tstringlist,分析每行文本,找 ℃ 。能具体点吗?!文本文件内容如下:样品编号:TRQ-2008-10-016 采样地点:柳屯配气站(大化 外销管线)采样时间:2008-10-20(09:00)采 样 人:韩翠红 李月梅监 护 人:田文英样品状态描述:气态检测环境描述:22.0℃ 35.0% 100.20kPa //这个就是。当是如下情况时22.3℃ 36.3% 100.23KPA 导出正常检测设备: HP6890plus/us00032696=====================================================================Injection Date : 2008-10-20 10:17:34 下午 Sample Name : 天然气 Vial : 1Acq. Operator : 何英 张丽娜 Inj : 1 Inj Volume : ManuallyMethod : C:/HPCHEM/1/METHODS/TNY.MLast changed : 2008-10-20 9:28:48 下午 by 何英 张丽娜 (modified after loading)===================================================================== Normalized Percent Report =====================================================================Sorted By : Retention TimeCalib. Data Modified : 2008-1-25 14:39:59 下午Multiplier : 1.0000Dilution : 1.0000Signal 1: FID1 A, Signal 2: TCD2 B, RetTime Sig Type Area Amt/Area Norm Grp Name [min] % -------|--|------|----------|----------|----------|--|--------------- 1.486 2 BB S 3.76417e4 2.39344e-3 95.128291 C1 2.708 2 BB 866.13147 1.52264e-3 1.392510 CO2 4.036 1 BB X 164.57686 1.78458e-3 0.310115 C3H8 4.254 1 BB 34.53477 1.30420e-3 0.047557 iC4H10 4.434 1 BB 35.11552 1.31402e-3 0.048721 nC4H10 5.062 1 BB 17.85480 1.02939e-3 0.019407 iC5H12 5.371 1 BB 9.07319 1.02866e-3 0.009855 nC5H12 6.612 2 BP 1340.55762 1.62436e-3 2.299258 C2H6 6.650 1 - - - C6 8.343 2 BB 361.30563 1.77467e-3 0.677033 N2 8.900 1 - - - C7 11.556 1 VBA+ 99.02929 6.43168e-4 0.067252 C8 14.050 1 - - - C9 16.550 1 - - - C10 Totals : 100.0000002 Warnings or Errors :Warning : Calibration warnings (see calibration table listing)Warning : Calibrated compound(s) not found===================================================================== *** End of Report ***
 
问题已经解决。谢谢大家,散分了。。。。
 
上次已经结过贴了。怎么没有成了。。。。再结一次。
 
后退
顶部