获取报表列表和预览报表

    Unit Urave_test；interfaceuses  //如下2行为本工程使用的单元文件，均为Delphi根据用户使用的组件自动添加  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, RpRave, RpDefine, RpBase, RpSystem, StdCtrls, Buttons；type    TForm1 = class(TForm)    //如下为窗体使用的组件说明    Label1: TLabel；    Label2: TLabel；    Report_Listbox: TListBox；    Memo_Description: TMemo；    RvSystem1: TRvSystem；    RvProject: TRvProject；    PrintBtn: TBitBtn；    ReportBtn: TBitBtn；    Label3: TLabel；    ExitBtn: TBitBtn；    //如下5行为事件处理过程说明    procedure FormCreate(Sender: TObject)；    procedure ReportBtnClick(Sender: TObject)；    procedure FormDestroy(Sender: TObject)；    procedure PrintBtnClick(Sender: TObject)；    procedure ExitBtnClick(Sender: TObject)；    private     { Private declarations }  public    { Public declarations }  end；varForm1: TForm1；implementation{$R *.dfm}    //如下为工程的各事件处理过程代码procedure TForm1.FormCreate(Sender: TObject)；//窗体建立时，执行该过程begin      RvProject.Open；  //打开由ProjectFile属性指定的报表工程文件  //，使其可用于打印或修改。  RvProject.GetReportList(Report_Listbox.Items,true)；  //获取Rave定义的报表列表，并写入Report_Listbox的列表框中  Report_Listbox.ItemIndex:=0；  //设置列表框的初值，否则，第1次直接调用ReportLClick过程时  //，将出现下标越界错误end；procedure TForm1.ReportBtnClick(Sender: TObject)；//当选择打印按钮Print时，调用该过程，并将选择报表的描述显示在Memo组件中beginRvProject.SelectReport(Report_Listbox.Items[Report_Listbox.ItemIndex],true)；    //选择由入口参数Items[RReport_Listbox.ItemIndex]指定的报表  //找到返回True,否则返回false  RvProject.ReportDescToMemo(Memo_Description)；  //ReportDescToMemo初始化Memo组件，即Memo_Description组件。  //Memo_Description组件用于保存当前选择报表的描述内容。end；procedure TForm1.FormDestroy(Sender: TObject)；//退出应用关闭工程，调用该过程begin  RvProject.Close；  //关闭由ProjectFile属性指定的已打开的报表工程end；procedure TForm1.PrintBtnClick(Sender: TObject)；//打印或预览报表时，调用该过程begin     RvProject.execute；     //打印当前选择的报表end；procedure TForm1.ExitBtnClick(Sender: TObject)；begin      Form1.close；  //关闭窗体end；end.