uses RVClass, RVProj, RVCsStd; var MyPage:TRavePage; MyText:TRaveText; begin RaveProject1.Open; With RaveProject1.ProjMan do begin MyPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage; MyText:=FindRaveComponent('Text1',MyPage) as TRaveText; MyText.Text:= EDit1.text; end; RaveProject1.ExecuteReport('Report1'); RaveProject1.Close; end;
RVClass, RVProj, RVCsStd;
var
MyPage:TRavePage;
MyText:TRaveText;
begin
RaveProject1.Open;
With RaveProject1.ProjMan do
begin
MyPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage;
MyText:=FindRaveComponent('Text1',MyPage) as TRaveText;
MyText.Text:= EDit1.text;
end;
RaveProject1.ExecuteReport('Report1');
RaveProject1.Close;
end;