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



Вниз

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

XX   (2002-01-28 17:12) [0]

Ячейки в Stringgrid.
Напшите, плз, алгоритм.

---

Johnmen   (2002-01-28 17:17) [1]

Пробежать по всем строкам, суммируя то, что нужно...

---

Polevi   (2002-01-28 17:26) [2]

Можно выгрузить данные из StringGrid в какую нибудь базу данных, а потом SELECT SUM сделать..

---

Johnmen   (2002-01-28 17:41) [3]

>>>Polevi : это очень тормознуто ! да и, может быть, человеку не надобно никакой БД :)

---

Polevi   (2002-01-28 17:43) [4]

2Johnmen ©
Серьезно ??
:)))

---

Johnmen   (2002-01-28 17:48) [5]

Шютка ! %)))

---

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

---

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

Наверх

Память: 0.72 MB
Время: 0.03 c