ʹDBGrid�����Զ���������ʱ��С

Ĭ������£�dbGrid���п�ʱ�������ݿ��ֶεĴ�С�������ģ��������һ���ֶ��е����ݱ���٣���ô�������������ۣ����ǣ���д��һ���������Զ�����dbGrid���п��

�������£�

//ʹdbGrid�������Զ���Ӧ���Ŀ��procedure 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://ȡ�����ֶεij���  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://ȡ����ÿ���ֶεij���    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;

�