[Vidocq]

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

[4erep_88]

Если FixedCols=0 и FixedRows=0, то вот код...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k1,k2:integer;
sum: double;
begin
k1:=StringGrid1.RowCount-2;
k2:=StringGrid1.ColCount-1;

for j:=0 to  k2 do begin
 sum:=0;
 for i:=0 to k1 do sum:=sum+StrToFloat(StringGrid1.Cells[j,i]);
 StringGrid1.Cells[j,k1+1]:=FloatToStr(sum);
end;
end;

[Vidocq]

Спасибо, за помощ все работает.

[Vidocq]

А можно сделать чтоб было в экселе, т.е. я нажимаю кнопку на экспорт и когда в эксели появляется таблица чтоб там уже у каждого столбца внизу была сумма, а количество строк меняется каждый раз.