|
#1
|
|||
|
|||
Помогите плиз!!!
Здраствуйте люди добрые помогите пожалуста.
Есть StringGrid в который выводятся значение (числовые), вот, надо в последней строчке, под каждым столбцом, чтоб была сумма чисел, которая в столбцах, подскажите как это сделать? Зарание всем спасибо!! |
#2
|
||||
|
||||
Если 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; |
#3
|
|||
|
|||
Спасибо, за помощ все работает.
|
#4
|
|||
|
|||
А можно сделать чтоб было в экселе, т.е. я нажимаю кнопку на экспорт и когда в эксели появляется таблица чтоб там уже у каждого столбца внизу была сумма, а количество строк меняется каждый раз.
|