delphi中动态更改数字显示格式？

[linlingwei]

因为用了三方控件原因，所以只能自己处理数字显示格式，用下面这过程：
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i:Integer ;
fd:TField ;
begin
for I := 0 to DataSet.FieldCount -1 do
begin
fd:=DataSet.Fields[i];
if fd.FieldName ='tax_total' then
begin
(fd As TBCDField).DisplayFormat:='#,##0.00';
end;
end;
end;

问题来了，如果adoquery直接从表里面select取数据 上面过程是正常的，如：
ADOQuery1.SQL.Text :='select sp_id,sp_name,tax_total from cb';
但是如果动态汇总数据，上面过程就报错了，如：
ADOQuery1.SQL.Text :='select sum(total) as tax_total from cgrk_cb';
是不是sum汇总的数据字段，不再默认数据中原有的类型了，这样的话怎么处理呢？

[Mars]

我一般不在事件里处理，sql.text=xxx，adoquery1.open; if adoquery1.recordcount>0 then 继续处理fieldbyname就可以了。

[日立奔腾浪潮微软松下联想]

(fd As TNumericField).DisplayFormat:='#,##0.00';