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

Вниз

Как сложить (сумировать) все ячейки определенного столбца?   Найти похожие ветки 

← →
Rash   (2002-01-28 19:55) [6]

sum:=0;
for i:=1 to grid.rowcount - 1 do
//i:=1 при наличии заголовка
begin
if grid.cells[4,i] = "" then col4:="0" else col4:=grid.cells[4,i];
try
sum:=sum+strtofloat(col4);
except on econverterror do sum:=sum end;
end;
suml.caption:=floattostr(sum);

---

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

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

Наверх

Память: 0.43 MB
Время: 0.004 c