delphi如何根据字段长度设置excel列宽

Question

在dbgrid导入excel时，我想让delphi根据字段长度自动设置excel的列宽，请问如何实现？

Answer 1

假设你用TQuery组件Query1做为DBGrid的DataSource, 将要导入数据到Excel文件的Excel1.workbooks[1].sheets[1]中(记为:Sheet1),Query1所有字段数据导入Excel中, Excel由第1列开始依次对应Query1字段数据列,可以这样做：
For i:=1 To  Query1.FieldCount Do  
  Sheet1.Columns[1].Columnwidth:=Query1.Fields[i-1].DataSize;