| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

StringGrid

Оксана Вл. ©   (2008-07-22 11:36:00) 

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

---

Игорь Шевченко   (2008-07-22 11:47:00) [1]

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

---

MsGuns   (2008-07-22 11:42:00) [2]

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:39:00) [3]

пробую так

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);

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

---

Palladin   (2008-07-22 11:38:00) [4]

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

---

Наверх