Тема: два цикла
Показать сообщение отдельно
  #9  
Старый 20.08.2008, 11:59
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

Цитата:
Сообщение от 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 ??? четыре столбца ведь
Ответить с цитированием