DBGrid1.Columns[0].Width:= .... / geht das auch automatisch?

[Delphi.Narium]

Eventuell ließe sich aber im AfterOpen der Query sowas realisieren:

Delphi-Quellcode:

procedure TForm1.AfterOpen(DataSet: TDataSet);
var
  i : Integer;
begin
  for i := 0 to DataSet.Fields.Count - 1 do begin
    case DataSet.Fields[i].DataType of
      ftSmallint, ftInteger, ftWord,
      ftLargeInt, ftAutoInc : TFloatField(DataSet.Fields[i]).DisplayFormat := '###,##0 ';
      ftCurrency, ftFloat   : TFloatField(DataSet.Fields[i]).DisplayFormat := '###,##0.00 ';
      ftDate, ftTime, ftDateTime : TDateTimeField(DataSet.Fields[i]).DisplayFormat := 'dd.mm.yyyy hh:nn:ss';
    end;
  end;
end;

Dann könnte man sich beim Zeichnen des Grids die Formatierungen sparen und bliebe bei der Berechnung der Spaltenbreite bei TiGüs Vorschlag.