Creating Groups Dinamically

rbuser

Hi, I'm using RBuilder with Delphi6, and I coudn't find out how to create
Groups in my report via code, dinamically, any tutorial or idea will help
me.


Thanks, Bruno M. Long

nicocizik

Hi Bruno,

This, along with many other helpful articles, is located in the
digital-metaphors.public.reportbuilder.tech-tips newsgroup.

----------------------------------------------------
Tech Tip: Creating a Group in Code
----------------------------------------------------


How can I dynamically create a report group at run-time?


example code:
-------------

uses
ppClass, ppGroup, ppClasUt;


function AddGroupToReport(aBreakName: String; aDataPipeline:
TppDataPipeline; aReport: TppCustomReport);
var
lGroup: TppGroup;
lGroupBand: TppGroupBand;

begin


{add group to report}
lGroup := TppGroup(ppComponentCreate(aReport, TppGroup));

lGroup.Report := aReport;

lGroup.BreakName := aBreakName;
lGroup.DataPipeline := aDataPipeline;

{add group header and footer bands }
lGroupBand := TppGroupBand(ppComponentCreate(aReport,
TppGroupHeaderBand));
lGroupBand.Group := lGroup;

lGroupBand := TppGroupBand(ppComponentCreate(aReport,
TppGroupFooterBand));
lGroupBand.Group := lGroup;


end; {procedure, AddGroupToReport}


--

rbuser

It Worked OK, Thanks.