Hard Coding group-by in Delphi

rbuser

Hi,
does anyone happen to know the syntax to add a group by for the report using
hard-coding in Delphi 5?

nicocizik

Hi Andrew,

There are numerous examples of creating report completely in code located in
the ReportBuilder Developer's Guide. (\RBuilder\Developers Guide\...).
Also, take a look at the following article.

----------------------------------------------------
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}


--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com