实例——重新显示当前页.txt

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

procedure TRpPreviewForm.RvRenderPreview1ZoomChange(Sender: TObject)；
var   String1: string[10]；
begin
     Str(RvRenderPreview1.ZoomFactor:1:1,String1)；
// 将double类型的ZoomFactor缩放百分数根据指定的位数转换为串，
//并存入到String1中
     ZoomEdit.Text := S1；
     // 显示新的缩放因子
     RvRenderPreview1.RedrawPage；
 // 在预览屏幕上重新显示当前报表页
end；