procedure CreateSumFooter(cxTableView: TcxGridDBTableView;
const fieldList: string);
var
i: Integer;
f: TcxGridDBTableSummaryItem;
l: TStringList;
begin
l := TStringList.Create;
l.DelimitedText := fieldList;
l.Delimiter := ',';
cxGrid1DBTableView1.OptionsView.Footer := True;
for i := 0 to cxGrid1DBTableView1.ColumnCount - 1 do
begin
if l.IndexOf(cxGrid1DBTableView1.Columns[i].DataBinding.FieldName) <> -1 then
begin
f := (cxGrid1DBTableView1.DataController.Summary.FooterSummaryItems.Add) as TcxGridDBTableSummaryItem;
f.FieldName := cxGrid1DBTableView1.Columns[i].DataBinding.FieldName;
f.Column := cxGrid1DBTableView1.Columns[i];
f.Kind := skSum;
end;
end;
l.Free;
end;