Цитата:
Сообщение от 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 строк((
|
Сам же сказал что 25 строк))) (точнее 26 если счить с серыми фиксированными), а тут ты пытешься записать SG3.Cells[i, 26], в таблице нет такой ячейки...
И почему у тебя for i := 0 to 5 do ??? четыре столбца ведь