delphi 中如何对一列字段求和

Question

用ADOQUERY查询得出一些数据来，可能只有一条数据，也有可能是多条，其中有一个字段是金额（cash），我想在标签里显示出来金额(cash)的数据之合，请问下要怎么写程序？

Answer 1

两种办法：
1、重新发一条查询命令，select sum(cash) from 表名，让数据库替你计算总计，标签显示ADOQUERY.Fields[0].asString
2、自己写个循环计算，遍历各行数据，大致如下：
mySum := 0.0;
while not ADOQUERY.EOF do
begin
mySum := mySum + ADOQUERY.FieldByName( 'cash' ).Value;
ADOQUERY.next;
end;