自动调整DBGrid的列宽度

 二零一四十二月二十四  15:32 自动调整DBGrid的列宽度
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
定义DBGrid的列宽度有2中方法，一种手动在属性columns中设置，另一种在程序中设置
下面给出在程序中自动根据数据的长度来定义每列的宽度和总宽度 的代码

//.................自动调整DBGrid的列代码段.....................................

  DBGColCount:= DBGrid1.Columns.Count;

  Setlength(aDBGColLg,DBGColCount);      // Setlength(数组名,大小)为动态函数分配大小

  objDataSet:= DBGrid1.DataSource.DataSet;

  for y:=0 to DBGColCount-1 do

  begin

//  DBGrid1.Columns[y].Width :=100;  //设定DBGrid列宽为100

    aDBGColLg[y]:= length(DBGrid1.Columns[y].Title.Caption);    //获得DBGrid标题长度

//    showmessage(IntToSTr(aDBGColLg[y]));     //显示获得DBGrid标题长度

  end;

  objDataSet.First;

  while not objDataSet.Eof do

  begin

    for z:=0 to DBGColCount-1 do

    begin

      tmpLength:=length(objDataSet.Fields.Fields[z].AsString);

      if tmpLength>aDBGColLg[z] then

      aDBGColLg[z]:= tmpLength;

    end;

    objDataSet.Next;

    for z:=0 to DBGColCount-1 do

    begin

    DBGrid1.Columns[z].Width:=aDBGColLg[z]*7;

    end;

  end;

//.....................分割线...................................................
源参考网址：http://blog.163.com/zsclei@126/blog/static/319261002012129111150146/ 

-----------------------------------------------------------年轻的梦，在这里发芽----------------------------------------------------------------------------------------