[artemavd]

Код:

 for i := 0 to 3 do
 begin
  Buf := 0;
   for j := 1 to 25 do
    Buf := Buf + StrToInt(SG2.Cells[i, j]);
  SG2.Cells[i, 26] := IntToStr(Buf);
 end;

А почему когда я попробовал сделать так для третьей таблицы:

Код:

 for i := 0 to 5 do
 begin
  Buf := 0;
   for j := 1 to 25 do
    Buf := Buf + StrToInt(SG3.Cells[i, j]);
  SG3.Cells[i, 26] := IntToStr(Buf);
 end;

то у меня не получилось. Для второй таблицы цикл прекрасно считает. В ней четыре столбца и 25 строк. Все считает. А я не могу переделать его чтобы он считал для третьей таблицы, в которой 6 колонок и 25 строк((