关于stringgrid内容显示的问题，有分

Question

我用stringgrid显示数据库中的内容
stringgrid1.rows[1].text:='名称';
stringgrid1.rows[2].text:='备注';
stringgrid1.cells[1,1]:=adoquery1.Fields[0].asstring;
stringgrid1.cells[1,2]:=adoquery1.Fields[1].asstring;现在“备注”的内容太多，只在stringgrid1.cells[1,2]中
显示一部分，其它部分看不到。请教如何处理。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i, j, MaxWidth :integer;
begin
  for i:=0 to StringGrid1.ColCount-1 do
  begin
    MaxWidth:=0;
    for j := 0 to (StringGrid1.RowCount - 1) do
      if Length(StringGrid1.Cells[i,j]) > MaxWidth then
        MaxWidth:=StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i,j]);
    StringGrid1.ColWidths[i]:= Maxwidth;
  end;
end;