如何对一个TADOquery返回的动态结果集中的数字字段加入千分位

Question

如题, 请教高人指点

Answer 1

显示时 用format格式化下即可

Answer 2

在该字段的ongettext事件里,格式化.

Answer 3

呵呵,没有人回答,自己磨出来了.把写法贴出来, 还请高人指点procedure NumericFormat(var DataSet:TDataSet;FormatStr:String);
var
  i:integer;
begin
  for i:=0 to DataSet.FieldCount -1 do
  begin
    if DataSet.Fields[i].DataType in [ftInteger,ftFloat,ftWord] then
      TNumericField(DataSet.Fields[i]).DisplayFormat :=FormatStr;
  end;
end;
procedure TfmPurReport.qTypeOneYearAfterOpen(DataSet: TDataSet);
begin
 NumericFormat(DataSet,'#,#');
end;