[Виктор]

Необходимо сделать в отдельной строке сумму значений поля в BDGrid

[friz]

Код:

procedure TForm1.Button5Click(Sender: TObject);
var sum:real;
begin
sum:=0;
DBGrid1.DataSource.DataSet.First;
while not DBGrid1.DataSource.DataSet.Eof do
begin
sum:=sum+DBGrid1.DataSource.DataSet.fieldbyname('имя поля').AsFloat;
DBGrid1.DataSource.DataSet.Next;
end;
showmessage(floattostr(sum));

end;

[Виктор]

А если у меня поле -денежное

[friz]

а какая разница? деньги что не в числах считаются? если не нравится asfloat то сделай asInteger

[Виктор]

Все получилось , спасибо

[TOJluK]

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

а какая разница? деньги что не в числах считаются? если не нравится asfloat то сделай asInteger

Ну вообще- то для денег использовать надо AsCurrency (и в базе тоже).

[Виктор]

Спасибо ,все получилось