unit1.pas

suite component ace report

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, sctctrl, Sctvar, Sctrep, ExtCtrls, Buttons,
  Sctbtn;

type
  TForm1 = class(TForm)
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    ReportPage: TSctGrouppage;
    SctReport1: TSctReport;
    SctTextLabel1: TSctTextLabel;
    SctReportButton1: TSctReportButton;
    Memo1: TMemo;
    procedure ReportPageDataStart(Sender: TObject);
    procedure ReportPageDataSkip(Sender: TObject);
  private
    { Private declarations }
    count: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ReportPageDataStart(Sender: TObject);
begin
  count := 0;
end;

procedure TForm1.ReportPageDataSkip(Sender: TObject);
begin
  count := count+1;
  SctTextLabel1.Caption := IntToStr(count);
  if count > 10 then ReportPage.DataIsFinished := True;
end;

end.