On-line Documentation

User data events - Example


procedure TReportContainer.UserDataDataEof(Sender: TObject;

  var Eof: Boolean);

begin

  Eof := FCounter > 20;

end;

 

procedure TReportContainer.UserDataDataFirst(Sender: TObject);

begin

  Randomize;

  FCounter := 1;

end;

 

procedure TReportContainer.UserDataDataNext(Sender: TObject);

begin

  Inc(FCounter);

end;

 

procedure TReportContainer.UserDataDataPrior(Sender: TObject);

begin

  Dec(FCounter);

end;