dgbrid自动适应字段长度

procedure   TForm1.Button3Click(Sender:   TObject); 
  
  var 
  ss:   string; 
  i:   integer; 
  begin 
  query1.Close; 
  query1.SQL.Clear; 
  query1.sql.add('select   *   from   管院图书财产帐'); 
  query1.Open   ; 
  query1.First; 
  for   i:=1   to   6   do 
  begin 
  ss:=trimright(query1.fields[i].asstring); 
  if   dbgrid1.Columns[i].width<length(ss)*15   then 
  dbgrid1.columns[i].width:=length(ss)*15; 
  end; 
  dbgrid1.Update; 
  end;

思路这样，你自己改改，15这个值是我估计的
ValueListEditor中调试通过*6就可以了