Как подсчитать сумму цифр в столбце и вывести их в Edit

[MaxiMkaUA]

Как подсчитать сумму цифр в столбце и вывести их в Edit

[mihali4]

В столбце чего?

[MaxiMkaUA]

Есть таблицав которой есть столбци Количество и цена

Третий столбец вычисляется как цена умноженая на количество

А мне нужно чтоб в едите выводилась сума всех чисел которые будут находится в третьем столбце
толбко я не знаю как это сделать

[Neeter]

var
 i: integer;
 sum: integer;
begin
 Edit1.Text := '';
 if Table1.RecordCount <> 0 then
 begin
  for i := 0 to Table1.RecordCount - 1 do
   if not Table1.FieldByName('Имя третьего столбца').IsNull then
    sum := sum + Table1.FieldByName('Имя третьего столбца').AsInteger;
  Edit1.Text := IntToStr(sum);
 end;
end;

Работоспособность не проверял.

[MaxiMkaUA]

Чтото каждый раз при компиляции показывает другое число, и очень большое. Столбец я делал через Query потому код плучился такой
var i: integer;
sum:real;
begin
Edit3.Text := '';
if Query1.RecordCount <> 0 then
begin
for i := 0 to Query1.RecordCount - 1 do
if not Query1.FieldByName('Сума').IsNull then
sum := sum +Query1.FieldByName('Сума').AsFloat;

end;
Edit3.Text := floatToStr(sum);

Как лучше вычеслять, через Query Или через Table?

[MaxiMkaUA]

У меня в стлбце 20 единиц, а при подсчете выходит 4,92485287941207E-316 как такое может быть?

[mihali4]

Edit3.Text := floatToStr(sum);
Вот и выходит...
Вам же Neeter дал нормальный код...
Если у вас там числа с плавающей точкой, используйте FormatFloat().

[MaxiMkaUA]

Так есле Integer то получается без точки но вот такое число 4932836

Откуда? Что оно считает?

[ruminaia]

Я обычно использую FloatToStrF, т.е.
summFloat := Query1.FieldByName('Сума').AsString ;
str := FloatToStrF(summFloat,ffFixed,2);
, где 2 это число знаков после запятой

[mihali4]

Сообщение от MaxiMkaUA

Так есле Integer то получается без точки но вот такое число 4932836

Откуда? Что оно считает?

Дык переменную SUM неплохо бы обнулить после объявления и до начала подсчета
Сделайте первой строчкой после бегина:
sum:=0;
и все дела...