Подсчет суммы значений в столбце

[sashakerg]

Здравствуйте!
Задача подсчитать сумму значений столбца "Потребители" и строки "Поставщики". Количество строк и столбцов задается пользователем, и может быть сколько угодно. Таблица реализована при помощи компонента StringGrid. Значения в таблице могут быть только целочисленные и положительные
Пол дня сижу ломаю голову..передумал кучу вариантов, перелопатил интернет..решения проблемы не нашел
Помогите кто чем может

[Лубышев]

var i:integer;
summ:integer;
begin
summ:=0;
for i:=1 to stringgrid1.ColCount do
summ:=summ+strtoint(stringgrid1.Cells[i,1]);//где i - номер колонки а 1 -номер строки

[sashakerg]

Сообщение от Лубышев

var i:integer;
summ:integer;
begin
summ:=0;
for i:=1 to stringgrid1.ColCount do
summ:=summ+strtoint(stringgrid1.Cells[i,1]);//где i - номер колонки а 1 -номер строки

Спасибо огромное

Еще одна проблема...
Необходимо реализовать ввод строчки в таблицу со значениями, задающимися программно. (Значения к примеру "1000"). Строчка эта вводится в самый конец таблицы, а значения для каждого столбца одинаковы.

Помог бы кто еще вот это реализовать


Со строкой разобрался...а вот со столбцом никак не получается (