For i := 0 To FieldList.Count - 1 Do
Begin
Col := FDBGridC.Columns.Add;
Col.Alignment:=TAlignment(Ord(StrToInt(FieldAlig.Strings)));
Col.Visible := Abs(StrToInt(FieldVisible.Strings)) = 1;
Col.DisplayFormat:=Trim(DisplayFormat.Strings);
Col.PickList:=FieldList;
Col.Tag := StrToInt(DataType.Strings);
If FieldSum.Strings = '1' Then Begin
Col.Footers.Add;
Col.Footers[0].FieldName := FieldList.Strings;
if FieldSumType.Strings='' then
Col.Footers[0].ValueType := fvtSum
else
Col.Footers[0].ValueType := TFooterValueType(Ord(StrToInt(FieldSumType.Strings)));
if not OpenFooter then
OpenFooter:=True;
End;
Col.FieldName := FieldList.Strings;
Col.Title.TitleButton := True;
Col.Title.Caption := FieldCaption.Strings;
Col.Width := StrToInt(FieldWidth.Strings);
End;
以上代码我的系统中的一部分，你可以根据自己的需要重新设计，思路应该是一样的。
