FMX StringGrid根据内容自适应列宽

FMX StringGrid根据内容自适应列宽

// maxrow,默认只排序前面100行以内的数据
  // maxwidth,默认单字段显示的最大宽度
  function GetColMaxDataLength(ASGrid: TStringGrid;maxrow:Integer=100;maxwidth:Integer=400): TObject;
  var
    MaxColLength,                  //列数据的最大长度
    CellLength: Single;            //单元格长度
    ACol,ARow: Integer;
    L_maxrow:integer;
  begin
    with ASGrid do
    begin
      L_maxrow:=Min(maxrow,ColumnCount);
      for ACol := 0 to ColumnCount - 1 do
      begin
        MaxColLength:=Canvas.TextWidth(Columns[ACol].Header);//取列头宽度
        for ARow := 0 to L_maxrow - 1 do //为了效率，最大行数默认为100
        begin
          CellLength := Canvas.TextWidth(Cells[ACol,ARow]);//取单元格宽度
          if CellLength > MaxColLength then
            MaxColLength := CellLength;
        end;
        Columns[ACol].Width := min(maxwidth,MaxColLength + 20);  //加上一个值调整列宽
      end;
    end;
  end;

 

应用很简单，一句搞定： 
GetColMaxDataLength(StringGrid1);