显示数据库时数字保留１位小数等

Tfloatfield(query1.fieldbyname('your_field')).displayformat   :=   '#0.00'

 

procedure Tfrm_main.DBGxxDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
try
Tfloatfield(adoqxx.fieldbyname('i_0w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_1w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_2w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_3w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_4w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_5w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_6w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_7w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_8w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_9w')).displayformat:='#0.0';
Tfloatfield(adoqxx.fieldbyname('i_10w')).displayformat:='#0.0';
finally
end;
end;