StringGrid: ColWidth nach längsten Eintrag ausrichten

[Gummibärchen]

Besten Dank, habe den Code überarbeitet und es läuft

Delphi-Quellcode:

  for Col := 0 to Grid.ColCount - 1 do
  begin
    len2 := 0;
    len := 20; // min. Breite
    for Row := 0 to Grid.RowCount - 1 do
    begin
      if len < Grid.Canvas.TextWidth(Grid.Cells[Col, Row]) then
      len := Grid.Canvas.TextWidth(Grid.Cells[Col, Row]);
      if len2 < len then
        len2 := len;
    end;
    Grid.ColWidths[Col] := len2;
  end;