实例——打印(显示)当前页号.txt

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

procedure TPreForm.RvRenderPreview1PageChange(Sender: TObject)；
begin
with RvRenderPreview1 do
begin
        PageEdit.Text := IntToStr(CurrentPage)；
// 获取当前页号，并将其转换成字符类型
PageLabel.Caption := '第 ' + IntToStr(CurrentPage -FirstPage + 1) 
+ ' 页/ ' + IntToStr(Pages)；
        // 在页标签上显示“第X页/总页数”
      end； { with }
end；