用AdoQuery 查询字段长度，提示datalength未定义，请高手帮忙看下

Question

 for i:=0 to DBGrid1.Columns.Count -1 do 
 begin  
     fieldname:=dbgrid1.Columns [i].Field.FieldName; 
     dbgrid1.Columns[i].Field.DisplayWidth:=Length(aquery1.FieldByName(fieldname).AsString);
 end;

Answer 1

支持2楼
for i:=0 to DBGrid1.Columns.Count -1 do 
begin  
    fieldname:=dbgrid1.Columns [i].Field.FieldName; 
    dbgrid1.Columns[i].Field.DisplayWidth:=Length(aquery1.FieldByName(fieldname).AsString); 
end;