procedure TFrDataview.cxGridDBTableView3DataControllerSummaryAfterSummary(
ASender: TcxDataSummary);
var
I: Integer;
mm: String;
begin
ListBox6.Clear;
for I := 0 to 32 do
begin
mm := ASender.FooterSummaryTexts[i];
//delta7maxv[i + 1] := StrToIntDef(mm, 0);
ListBox6.Items.Add(format('%d = %s', [I + 1, mm]));
end;
end;
评论