Код:
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; |