如何调用同一过程，请各位指教...

Question

有两个以上的wwdbgrid控件wwdbgrid1、wwdbgrid2...等,其中的不同数据需要导出，但导出过程使用下面这一个，  .....       for j:=0  to wwDBGrid1.FieldCount do   //这里的wwDBGrid1如何替换
        begin
            worksheet.cells[i,j]:=wwDBGrid1.Fields[j+2].Value; //还有这里
        end;
  ......以上过程中如何在选择wwdbgrid1或wwdbgrid2等时调用该同一过程呢 ? 请指教

Answer 1

做一个过程procedure Export(a:TwwDBGrid1);
var 
i:integer;
begin
    for j:=0  to a.FieldCount do 
        begin
            worksheet.cells[i,j]:=a.Fields[j+2].Value; 
        end;
end;在需要导出的时候调用
export(wwDBgrid1);
export(wwDBgrid2);....

Answer 2

你给这个过程加个参数，类型位Twwdbgird， 例如： Grid：Twwdbgrid
 代码中全部用Grid，
调用过程就选择对应的gird控件了