Скачать: CL | DM;

сумма поля   Найти похожие ветки 

← →
Demo_nik ©   (2008-08-19 10:26) [0]

не могу посчитать сумму поля
вот код но он считает сумму строк
var
i,x,y: integer;
begin
x:=0;
y:=Table2.RecordCount;
Table2.First;
for i := 0 to y do
begin
Table2.FieldByName("SUMA").AsInteger;
inc(x);
Table2.Next;
end;
Edit2.Text:=FloatToStr(x);
end;

---

← →
Sergey13 ©   (2008-08-19 10:34) [1]

> [0] Demo_nik ©   (19.08.08 10:26)
> Table2.FieldByName("SUMA").AsInteger;

Что делает эта строка?

> for i := 0 to y

В работе с БД следует пользоваться циклом вида
while not Table2.EOF do

---

← →
Demo_nik ©   (2008-08-19 10:52) [2]

Вот переписал, все равно в место суммы он выдает количесво строк

var
x,s: integer;
begin
x:=0; s:=0;
Table2.First;
while not Table2.Eof do
begin
inc(x);
s:=s+Table2.FieldByName("SUMA").AsInteger;
Table2.Next;
end;
Edit2.Text:=IntToStr(s);
end;

---

← →
Sergey13 ©   (2008-08-19 11:00) [3]

> [2] Demo_nik ©   (19.08.08 10:52)
> все равно в место суммы он выдает количесво строк

Значит во всех записях Table2.FieldByName("SUMA").AsInteger=1. Или в программе ты выводишь х а не s.

---

← →
Medbe}I{onok XML ©   (2008-08-19 11:01) [4]

Что делает эта строка?

Напрягает ИИ оптимизатора

---

← →
Demo_nik ©   (2008-08-19 11:04) [5]

вот так все работает, может кому  пригодиться
var
x,s: real;
begin
s:=0;
Table2.First;
while not Table2.Eof do
begin
s:=s+Table2.FieldByName("SUMA").AsFloat;
Table2.Next;
end;
Edit2.Text:=FloatToStr(s);
end;

---

← →
Sergey13 ©   (2008-08-19 11:06) [6]

> [5] Demo_nik ©   (19.08.08 11:04)
> может кому  пригодиться

Я скопировал себе на всякий случай. Интересный, а главное оригинальный, алгоритм. 8-)

---

← →
Medbe}I{onok XML ©   (2008-08-19 11:06) [7]

может кому  пригодиться

Несомненно. Все уже скопировали этот код в свои библиотечные модули.

---

← →
Vlad Oshin ©   (2008-08-19 11:25) [8]

не правильно, копируйте мой
Table2.FieldByName("SUMA").AsSignValue
точнее считает

---

← →
clickmaker ©   (2008-08-19 11:36) [9]

особенно радует название поля: от тюрьмы да от ... не зарекайся )

---

← →
Anatoly Podgoretsky ©   (2008-08-19 13:08) [10]

> Demo_nik  (19.08.2008 10:52:02)  [2]

У тебя в программе другой текст.

---

← →
Demo_nik ©   (2008-08-19 14:06) [11]

Anatoly Podgoretsky ©   (19.08.08 13:08) [10]

> Demo_nik  (19.08.2008 10:52:02)  [2]

> У тебя в программе другой текст.

Смотри сообщение [5]

---

← →
MsGuns ©   (2008-08-19 16:39) [12]

Интересно, что делает эта ветка в "базах" ?

---

← →
Виталий Панасенко(дом)   (2008-08-19 21:30) [13]

> Demo_nik ©   (19.08.08 14:06) [11]

Мания величия?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c