Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.09.2006, 10:47
monk_2005 monk_2005 вне форума
Прохожий
 
Регистрация: 12.09.2006
Сообщения: 1
Репутация: 10
Вопрос помогите плиз

дана таблица base
для работы с ней используется Table1 DataSource1
надо проссумировать все значения в ПОЛЕ ITOG таблицы и вывести полученное значеник в Edit1 .... как это зделать???
Ответить с цитированием
  #2  
Старый 12.09.2006, 13:58
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Например так:

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>var</b>
  Res: integer;
<b>begin</b>
   Table1.Open;
   Table1.First;
   Res := <font color="royalblue">0</font>;
   <b>while</b> <b>not</b> Table1.Eof <b>do</b>
   <b>begin</b>
      Res := Res + Table1.FieldByName( <font color="royalblue">'ITOG'</font> ).AsInteger;
      Table1.Next;
   <b>end</b>;
   Table1.Close;
   Edit1.Text := IntToStr( Res );
<b>end</b>;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:56.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025