实例——显示当前报表的页号.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

    Procedure Tform1.PrintCurrentPage；
    Begin
with RvRenderPreview1 do 
begin
        PageEdit.Text := IntToStr(CurrentPage)；
//获取当前页号
PageLabel.Caption := '第' +IntToStr(CurrentPage-FirstPage+1) 
                   + ' 页/ ' + IntToStr(Pages)；
//显示“第X页/总页数”，其中Pages为报表的总页数
end； { with }
    end；