Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2007, 23:15   #1
khaz
Пользователь
 
Регистрация: 13.12.2006
Сообщений: 13
По умолчанию Как же мне это сделать? DBgrid

Вообщем такая загвоздка-
Нужно сложить все числа определенной колонки dbgrid
и вывести куда нибудь результат.
Я в затруднении, помогите пожалуйста, господа программисты.
khaz вне форума Ответить с цитированием
Старый 12.02.2007, 00:41   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Пусть грид подключен к некоей Table1. И пусть искомая колонка подключена к полю Table1MyCol.
Тогда процедура нахождения суммы будет выглядеть так:
sum:=0;
Table1.First;
while not Table1.Eof do
begin
sum:=sum+Table1Mycol.Value;
Table1.Next;
end;
mihali4 вне форума Ответить с цитированием
Старый 12.02.2007, 00:59   #3
nova-alex
Пользователь
 
Регистрация: 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[Имя_поля'])
nova-alex вне форума Ответить с цитированием
Старый 12.02.2007, 01:04   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от nova-alex Посмотреть сообщение
Можно и таким циклом:

sum:=0;
Table.First;
For i:=1 to RecordCount.Table do
begin
sum:=sum+Table['Имя_поля'];
Table.Next;
end;
// если числа хранятся в строковом формате, то пользуйся
//конвертами типа IntToStr(Table[Имя_поля']) или
//FloatToStr(Table[Имя_поля'])
Предлагаю создать новый проект в дельфях и опробовать самому написанное. Потом исправить ошибки и переписать.
Куда торопимся? Как голый в баню, ей-богу...
mihali4 вне форума Ответить с цитированием
Старый 12.02.2007, 08:58   #5
khaz
Пользователь
 
Регистрация: 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!!!
Огромнейшее спасибо вам за ответы
khaz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать так, чтобы в 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