[Виктор]

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

[friz]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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 (и в базе тоже).

[Виктор]

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