如何对DbGrid中的数值列设置显示格式

Question

 对 DbGrid.Columns[i].Font
    DBGrid.Columns[i].Alignment 等进行控制就可以了

Answer 1

TFloatField(DBGrid1.DataSource.DataSet.Fields[0]).DisplayFormat:='#,##0.00';
显示两位小数

Answer 2

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  I: Integer;
begin
  for I := 0 to DataSet.FieldCount - 1 do
    case DataSet.Fields[I].DataType of
      ftBCD, ftFloat: TBCDField(DataSet.Fields[I]).DisplayFormat := '0.00';
      ftDateTime: TTimeField(DataSet.Fields[I]).DisplayFormat := 'YYYY"-"MM"-"DD';
    end;
end;

Answer 3

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  I: Integer;
begin
  for I := 0 to DataSet.FieldCount - 1 do
    case DataSet.Fields[I].DataType of
      ftBCD, ftFloat: TBCDField(DataSet.Fields[I]).DisplayFormat := '0.00';
      ftDateTime: TTimeField(DataSet.Fields[I]).DisplayFormat := 'YYYY"-"MM"-"DD';
    end;
end;