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.