![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
![]()
Вообщем такая загвоздка-
Нужно сложить все числа определенной колонки dbgrid и вывести куда нибудь результат. Я в затруднении, помогите пожалуйста, господа программисты. |
![]() |
![]() |
![]() |
#2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Пусть грид подключен к некоей Table1. И пусть искомая колонка подключена к полю Table1MyCol.
Тогда процедура нахождения суммы будет выглядеть так: sum:=0; Table1.First; while not Table1.Eof do begin sum:=sum+Table1Mycol.Value; Table1.Next; end; |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 06.11.2006
Сообщений: 51
|
![]()
Можно и таким циклом:
sum:=0; Table.First; For i:=1 to RecordCount.Table do begin sum:=sum+Table['Имя_поля']; Table.Next; end; // если числа хранятся в строковом формате, то пользуйся //конвертами типа IntToStr(Table[Имя_поля']) или //FloatToStr(Table[Имя_поля']) |
![]() |
![]() |
![]() |
#4 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]() Цитата:
Куда торопимся? Как голый в баню, ей-богу... ![]() |
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
![]()
mihali4
nova-alex sum:=0; Table1.First; while not Table1.Eof do begin sum:=sum+Table1Mycol.Value; Table1.Next; end; IT WORKS!!! Огромнейшее спасибо вам за ответы ![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сделать так, чтобы в DBGrid выводилась таблица Excel | Илюха | БД в Delphi | 10 | 06.05.2010 15:59 |
DBGrid | DOLBY | Компоненты Delphi | 29 | 08.10.2008 00:05 |
DBGrid | Ane4ka | БД в Delphi | 28 | 01.06.2008 10:00 |
DBGrid | sergei64_89 | БД в Delphi | 0 | 09.05.2008 19:48 |
DBGrid | 1nurik1 | БД в Delphi | 17 | 17.07.2007 17:20 |