使TStringGrid自适应宽度

核心提示：PRocedure AutoFitable(AGrids: TStringGrid);//传入TStringGrid对像即可, 2004/10/28,CoolSlobvar I, J: Integer; MaxLenRow: Integer; CurRowLen: Integer;begin inherited

PRocedure AutoFitable(AGrids: TStringGrid);
//传入TStringGrid对像即可, 2004/10/28,CoolSlob
var
  I, J: Integer;
  MaxLenRow: Integer;
  CurRowLen: Integer;
begin
  inherited;
  for J := 0 to AGrids.ColCount - 1 do
  begin
　  MaxLenRow := 0;
　  for I := 1 to AGrids.RowCount - 1 do
　  begin
　　  CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, I]));
　　  //自适应宽度时，当值的最大宽度小于标题宽时，以标题宽为准。
　　  if AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0])) > CurRowLen then
　　　  CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0]));
　　  if CurRowLen > MaxLenRow then
　　  begin
　　　  MaxLenRow := CurRowLen + 5;
　　　  AGrids.ColWidths[J] := MaxLenRow;
　　  end;
　  end;
  end;
end;