特殊的DBGRID数据格式化的问题，由于不确定字段而引出的。高手请指点

Question

要把根据格式成“0.00”这样的格式，通常是在设计时在QUERY中加入字段，然后在ongettext事件中写代码：“text:=formatfloat('0.00',sender.asfloat)”但由于adoquery的SQL不同（多个地方调用时SQL不同），所以字段也不相同，没办法在设计时，在ADOQUERY中加入字段。
那么要如何在运行时，加入字段的ONGETTEXT事件呢？

Answer 1

自己摸出来了，不知道还有没更好的办法。
我的方法是，先定义一只
procedure gettext(Sender: TField; var Text: String;DisplayText: Boolean);
然后再
adoquery1.fields[2].OnGetText:=gettext;

Answer 2

with AdoQuery do
begin
  Close;
  Sql.Clear;
  Sql.Add('select .... ');
  Open;  (FieldByName('单价') as TNumericField).DisplayFormat := '0.00';
  (FieldByName('折扣') as TNumericField).DisplayFormat := '0.0000';
end;