关于组件遍历

Question

我有6个easygrid,分别为easygrid1,easygrid2,,,easygrid6  和6个adoquery,分别为adoquery1，adoquery2，，，，adoquery6  现在要为6个easygrid编写赋值语句
事件都是一样的，就是不同的easygrid对应相同的adoquery，比如  easygrid1.Cells[adoquery1.FieldByName('colnum').asinteger,adoquery1.FieldByName('rownum').asinteger].ForeText:=adoquery1.FieldByName('mc').asstring
，，，，，，
  easygrid2.Cells[adoquery2.FieldByName('colnum').asinteger,adoquery2.FieldByName('rownum').asinteger].ForeText:=adoquery2.FieldByName('mc').asstring请问，这个遍历如何写？

Answer 1

var
  I: Integer;
begin
  for I := 1 to 6 do
    with TEasyGrid(FindComponent(Format('EasyGrid%d', [I]))),
      TADOQuery(FindComponent(Format('ADOQuery%d', [I]))) do
      Cells[
        FieldByName('colnum').AsInteger,
        FieldByName('rownum').AsInteger].ForeText := FieldByName('mc').AsString;
end;

Answer 2

多谢 zswangII(伴水清清)(一贴不灌，何以灌天下？) 回复得这么快，搞定了