сумма поля

← →
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]

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

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

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

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

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

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

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

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

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

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