非固定的 Fields对象 ,DBgrid列对象 ，如何使用 fields 的 DisplayFormat 属性

Question

procedure TFormStockpileCheck.ADOQueryBodyAfterOpen(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';
      ftDate: TDateField(DataSet.Fields[I]).DisplayFormat := 'YYYY"年"MM"月"DD"日"';
      end;
      ftTime: TTimeField(DataSet.Fields[I]).DisplayFormat := cFormatTimeCn;
    end;
end;

Answer 1

procedure TFormStockpileCheck.ADOQueryBodyAfterOpen(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';
      ftDate: TDateField(DataSet.Fields[I]).DisplayFormat := 'YYYY"年"MM"月"DD"日"';
    end;
end;