5,388
社区成员
发帖
与我相关
我的任务
分享
///cxgrdbndtblvw: Band Table
///mmo1: Tmemo
procedure TForm15.btn1Click(Sender: TObject);
var
i, j : Integer;
begin
for i := 0 to cxgrdbndtblvw.DataController.Groups.GroupingItemCount - 1 do
begin
for j := 0 to cxgrdbndtblvw.DataController.Summary.GroupSummaryItems[i].DataController.RowCount - 1 do mmo1.Lines.Add(IntToStr(cxgrdbndtblvw.DataController.Summary.GroupSummaryItems[i].Summary.GroupSummaryValues[j, 0]));
mmo1.Lines.Add('');
end;
end;