文本文件导出成报表后,数据显示为不是我想要的怎么办?如能帮助我解决问题,需要任何关键码均可提供。(20)

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
SetRptValue('[F18]',F18); SetRptValue('[F19]',F19);这个F18代表C8,F19代表C9,在文本文件中的这两个值都为0,可是在报表中想要显示为0.000。如今我将他们做成字符串的形式,结果只能显示0。同事们在使用时觉得很不方便所以建议我修改,我应该如何修改了?文本文件内容:样品编号: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 ***部分代码如下: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;
 
请问专家帮助解答吗?!可以就相关的任何源码进行讨论。。。。。
 
修改成SetRptValue('[F14]',formatfloat('0.#######',f14));还是载不住0。搞错了是这个FloatToStr 函数。
 
SetRptValue('[C14]',C14);使用这个也还是载不住小数点后面的0换句话说,我就是想将小数点前后的0全部截。比如说,C3:0.000我希望在报表能显示这个数。而按上面的语句则只显示0
 
结贴。自己给自己加。
 
顶部