//这个和向报表中赋值是差不多的,下面是把报表中TEXT1的值放到EDIT中 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; end; { with } RaveProject1.Execute;//Report('Report1'); Edit1.Text :=MyText.Text; RaveProject1.Close;
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;
end; { with }
RaveProject1.Execute;//Report('Report1');
Edit1.Text :=MyText.Text;
RaveProject1.Close;