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

[TiGü]

Zitat von Delphi.Narium:

Aber dann machen wir es noch ein bisserl kürzer

Delphi-Quellcode:

  for i := 0 to DBGrid1.Columns.Count - 1 do
  begin
    DBGrid1.Columns[i].Width := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[i].Field.AsString);
  end;

Du hast doppelt soviele Aufrufe an TDBGridColumns.GetColumn und 5 Assemblerzeilen mehr (Win32, Debug).
Am Ende "spart" man sich vertikalen Platz, um ihn mit horizontalen Platzbedarf einzutauschen.
Die eingesparten 22 Zeichen wiegen die Nachteile nicht auf.