cxGrid中从表格更改为分组的显示方式

纯粹表格的展现方式很难看出数据内在的结构，通过分组可以更清晰的看出内容，比如：

按方案显示的结果：

按项目显示：

涉及表格栏位的分组、显示、分组框、分组汇总等内容，以下为代码：

procedure TForm1.SetGridGroup(AGroupFields: array of string; ASumFields: array of string);
var
  i, j: Integer;
  item: TcxGridTableSummaryItem;
begin
  tv1.OptionsView.GroupByBox := True;
  tv1.OptionsView.GroupFooters:= gfVisibleWhenExpanded;

  for i := 0 to tv1.ColumnCount - 1 do
  begin  // 全部取消分组
    if tv1.Columns[i].GroupIndex > -1 then
    begin