Форум: "Начинающим";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
Игорь Шевченко ©   (2008-07-22 11:47) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c