首先在uses处加上RvClass,RvCsStd;
然后编写程序:
var
myPage:TRavePage;
Txt_Title:TRaveText;
begin
RvProject1.open;
with RvProject1.ProjMando
begin
myPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage;
Txt_Title:=FindRaveComponent('Text1',myPage) as TRaveText;
Txt_Title.Text:=Edit1.Text;
end;
RvProject1.ExecuteReport('Report1');
//or RvProject1.Execute;
RvProject1.Close;
end;