delphi xe stringgrid 自动列宽

在 Delphi XE 中，可以使用 `StringGrid` 控件的 `AutoFitColumns` 方法来自动调整列宽。以下是示例代码：

StringGrid1.AutoFitColumns;

这将自动调整 `StringGrid1` 控件中所有列的宽度，使其适合其内容。如果您只需要调整特定列的宽度，可以使用以下代码：

StringGrid1.ColWidths[ColumnIndex] := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[ColumnIndex, 0]) + StringGrid1.DefaultColWidth;

其中，`ColumnIndex` 是要调整宽度的列的索引。此代码将根据列标题和单元格内容设置列宽度。