楚
楚辞
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;