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

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

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


XX ©   (2002-01-28 17:12:00) 

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


Rash   (2002-01-28 19:55:00) [1]

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


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

Шютка ! %)))


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

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


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

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


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

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


Johnmen   (2002-01-28 17:17:00) [6]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо