?DBGrid??????????????????С

2016-08-18 来源:网络转载 编辑:
默认
特大
宋体
黑体
雅黑
楷体
条评论
640*60

£dbGridпεСедdbGridп

//dbGridprocedure MakeDBGridColumnsAutoFixItsWidth(objDBGrid:TDBGrid);var  cc:integer;  i,tmpLength:integer;  objDataSet:TDataSet;  aDgCLength:array of integer;begin  cc:=objDbGrid.Columns.Count-1;  objDataSet:=objDbGrid.DataSource.DataSet;  setlength(aDgCLength,cc 1);  file://ε  for i:=0 to  cc do  begin    aDgCLength[i]:= length(objDbGrid.Columns[i].Title.Caption);  end;

  objDataSet.First;  while not objDataSet.Eof do  begin    file://ε    for i:=0 to  cc do    begin      tmpLength:=length(objDataSet.Fields.Fields[i].AsString);      if tmpLength>aDgCLength[i]      then aDgCLength[i]:=tmpLength;    end;    objDataSet.Next;  end;

  for i:=0 to  cc do  begin    objDbGrid.Columns[i].Width:=aDgCLength[i]*7;  end;end;

640*44ad
580*90ad
640*60
640*90ad
150*250
300*250
ad640*90
Copyright ©  2010-2016 www.alonely.com.cn 版权所有 浙ICP备09022494号-4 关于我们联系我们友情链接站点地图TAG标签 免责声明