设定DbGridEh合计行信息问题，在线等

设定   DbGridEh   合计行信息  
  //--------------------------------------------------------------------------------  
  //   功能：设定   DbGridEh   合计行信息  
  //   参数：   pDbGrid:TDBGridEh;  
  //                 pcFields   :   string   ;   字段列表，字段用逗号分隔  
  //                 pvtType   :   TFooterValueType   ;   统计类型   TFooterValueType   =   (fvtNon,   fvtSum,   fvtAvg,   fvtCount,   fvtFieldValue,   fvtStaticText);  
  //   引用：StrToStringList  
  //   例如：DbGridEhFoot(   DbGridEh1,   'Number,Sum',   fvtSum   );   设定数量和金额字段为合计统计  
  //--------------------------------------------------------------------------------  
  Procedure   DbGridEhFoot(   pDbGrid:TDBGridEh;   pcFields:   string;   pvtType   :   TFooterValueType   );  
  var   nFldLoop   :   integer   ;  
          cFieldName   :   string   ;  
          tmpFldList   :   TStrings   ;  
  begin  
      pDbGrid.FooterRowCount   :=   1;         //   指定网格尾部统计行行数  
      pDbGrid.SumList.Active   :=   true;       //   激活统计  
      pDbGrid.FooterColor         :=   clBtnFace   ;     //   指定统计行颜色  
   
      tmpFldList   :=   TStringList.Create   ;  
      StrToStringList(   Uppercase(pcFields),',',tmpFldList   );     //   将字符串转换为串列表  
   
      For   nFldLoop   :=   0   to   pDbGrid.Columns.Count   -1   do  
      begin  
              cFieldName   :=   pDbGrid.Columns[nFldLoop].FieldName   ;     //   网格列字段名  
              if   tmpFldList.IndexOf(   uppercase(   cFieldName   )   )   >=   0   then  
              begin  
                    pDbGrid.Columns[nFldLoop].Footer.ValueType   :=   pvtType   ;     //   统计类型  
              end;  
      end   ;  
      tmpFldList.Free   ;  
  end;  
   
  在执行过程中发现“StrToStringList”这没有定义，请问是什么原因？  
  另外，这个过程在什么地方调用比较合理、合适？  
   
   
   
   
  问题点数：30、回复次数：8Top

1 楼hthunter（茫茫然时光飞逝）回复于 2005-08-18 11:10:00 得分 3

StrToStringList是哪个单元的？uses那个单元啊Top

2 楼qinzuozhang（晨曦）回复于 2005-08-18 11:20:24 得分 0

问题是我不知道是哪个单元？Top

3 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-08-18 11:22:10 得分 0

问题是很多人都不知道。  
   
  但很多人都会去查帮助。Top

4 楼qinzuozhang（晨曦）回复于 2005-08-18 11:28:49 得分 0

没有办法，我的英文很烂，才来这里求助Top

5 楼hqhhh（枫叶）回复于 2005-08-18 12:17:08 得分 27

自己写一个过程了：  
      procedure   StrToStringList(sStr,   sFh   :   String;   vLst   :   TStringList);  
      var  
          Str   :   String;  
      begin  
          Str   :=   sStr;  
          while   Length(Str)   >0   do  
          begin  
              if   pos(sFh,   Str)   >   0   then  
              begin  
                  vLst.Add(Copy(str,   1,   Pos(sFh,   Str)   -   1));  
                  Str   :=   Copy(Str,     Pos(sFh,   Str)   +   1,   Length(Str));  
              end  
              else   begin  
                  vLst.Add(Str);  
                  Str   :='';  
              end;  
          end;  
      end;  
  Top

6 楼qinzuozhang（晨曦）回复于 2005-08-19 15:22:24 得分 0

还是没有解决？怎么办呀？Top

7 楼hqhhh（枫叶）回复于 2005-08-19 17:27:17 得分 0

请问，楼上我的方法不行吗，  
  把我写的过程在你单元中定义，然后其他过程中调用不就行了，我已调试通过Top

8 楼qinzuozhang（晨曦）回复于 2005-08-20 09:50:39 得分 0

hqhhh(枫叶)   多谢了,我已经解决了  
  你那段代码是正确的Top

相关问题

• 字段
• 信息
• sfh
• strtostringlist
• pdbgrid
• dbgrideh
• tfootervaluetype
• vlst
• 设定
• 单元

• 帖主：qinzuozhang
• hthunter
• hqhhh

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