运行期生成的字段如何设置DisplayLabel和DisplayWidth？

Question

integer date boolean 都有固定长度
varchar 可以用select max(字段) from 表 获得最大长度 然后再赋值

Answer 1

如果我想改变integer、date、boolean的固定长度呢？还有，DisplayWidth怎么设？

Answer 2

即使运行时候生成的字段，在TDataset.Fields[n]中都可以查到。那么就可以修改了。

Answer 3

在AfterOpen事件中，就可以写了，
for i := 0 to DataSet.FieldCount - 1 do
begin
  DataSet.Fields[i].DisplayWidth := 10;
  DataSet.Fields[i].DisplayLabel := 'Hello';
end;