[kucher]

такой вопрос как сделать чтобы в этом коде

Код:

//Цикл для вывода данных таблицы
    for i:=0 to fDM.TZakaziData.RecordCount do begin
    //Наполнение таблицы
    sheet.Cells[index,1]:=fDM.TZakaziData.Fields.Fields[1].AsString;
    sheet.Cells[index,2]:=fDM.TZakaziData.Fields.Fields[2].AsString;
    sheet.Cells[index,3]:=fDM.TZakaziData.Fields.Fields[3].AsString;
    sheet.Cells[index,4]:=fDM.TZakaziData.Fields.Fields[4].AsString;
    sheet.Cells[index,5]:=fDM.TZakaziData.Fields.Fields[5].AsString;
    Inc(index);
    fDM.TZakaziData.Next; //Переход на следующую строку
    end;

не нужно было прописывать 5 раз

Код:

sheet.Cells[index,1]:=fDM.TZakaziData.Fields.Fields[1].AsString;
    sheet.Cells[index,2]:=fDM.TZakaziData.Fields.Fields[2].AsString;
    sheet.Cells[index,3]:=fDM.TZakaziData.Fields.Fields[3].AsString;
    sheet.Cells[index,4]:=fDM.TZakaziData.Fields.Fields[4].AsString;
    sheet.Cells[index,5]:=fDM.TZakaziData.Fields.Fields[5].AsString;

и цикл сам определял сколько нужно в столбце строк (5, 6, 7 от того сколько в таблице)
Я ВОТ ПОПРОБЫВАЛ НО НЕ РАБОТАЕТ, НО принцип такой вроде как

Код:

    fDM.TZakaziData.First;
    index:=3;
    //Цикл для вывода данных таблицы
    for i:=0 to fDM.TZakaziData.RecordCount do begin
 //   sheet.Cells[index,1]:=fDM.TZakaziData.Fields.Fields[1].AsString;
 //   sheet.Cells[index,2]:=fDM.TZakaziData.Fields.Fields[2].AsString;
 //   sheet.Cells[index,3]:=fDM.TZakaziData.Fields.Fields[3].AsString;
 //   sheet.Cells[index,4]:=fDM.TZakaziData.Fields.Fields[4].AsString;
 //   sheet.Cells[index,5]:=fDM.TZakaziData.Fields.Fields[5].AsString;

     for j := 1 to fDM.TZakaziData.Fields.Count-1 do  begin
     Sheet.Cells[index,j]:= fDM.TZakaziData.Fields.Fields[j].AsString;
     end;
    Inc(index);
    fDM.TZakaziData.Next; //Переход на следующую строку
    end;