Так а что складывать???
Если ячейки Книги Журналы Брошуры Карандаши Коротыши, то...
Код:
var
i : integer;//цикл
summ : real;//первая сумма
summ1 : real;//вторая сумма
begin
summ := 0;//обнуляем первую сумму
summ1 := 0;//обнуляем вторую сумму
for i:= 1 to 31 do//цикл
begin
summ := summ+StringGrid1.Cells[0,i];//подсчет первой суммы
summ1 := summ1+StringGrid1.Cells[1,i];//подсчет суммы
end;
end; |