StringGrid

← →
Оксана Вл. (2008-07-22 11:36) [0]

Скажите как в StringGrid подсчитать суму столбца

← →
Palladin © (2008-07-22 11:38) [1]

а что именно не получается?

← →
Оксана Вл. (2008-07-22 11:39) [2]

пробую так

s:=0;
for i:=1 to 15 do
if (StringGrid1.Cells[4,i] = "") then
StringGrid1.Cells[4,i] := "0";
s:=s+strtofloat(StringGrid1.Cells[4,i]);
panel1.Caption:=floattostr(s);

так он матюхается на пустой символ...

← →
MsGuns © (2008-07-22 11:42) [3]

function TForm1.CalcSumByColumn(SGrid: TStringGrid; ACol: integer): integer
var
i: integer;
begin
result := 0;
with SGrid do
for i := 0+FixedRows to RowCount-1 do
result := result+StrToIntDef(Cells[ACol,i],0);
end;

Учимся оформлять вопросы

StringGrid Найти похожие ветки