procedure TRpPreviewForm.RvRenderPreview1ZoomChange(Sender: TObject)；
var String1: string[10]；
begin
Str(RvRenderPreview1.ZoomFactor:1:1,String1)；
// 将double类型的ZoomFactor缩放百分数根据指定的位数转换为串，
procedure TForm1.LocatePositionBtnClick(Sender: TObject)；
begin
YaoPin.open；
with YaoPin do
Locate('品名；厂牌',VarArrayOf(['冰箱', '科龙集团']),
[loPartialKey])；
End；
