可以呀 var MyPage: TRavePage; MyText: TRaveText; begin RvProject1.Open; With RvProject1.ProjMan do begin MyPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage; //查找PAGE MyText:=FindRaveComponent('Text1',MyPage) as TRaveText; MyText.Text:=Edit1.text; //设置报表中文本内容,这里是你edit控件的值 MyText.Color:=clGreen;//设置颜色 end; { with } RvProject1.ExecuteReport('Report1'); RvProject1.Close; end;
var
MyPage: TRavePage;
MyText: TRaveText;
begin
RvProject1.Open;
With RvProject1.ProjMan do begin
MyPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage; //查找PAGE
MyText:=FindRaveComponent('Text1',MyPage) as TRaveText;
MyText.Text:=Edit1.text; //设置报表中文本内容,这里是你edit控件的值
MyText.Color:=clGreen;//设置颜色
end; { with }
RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end;
要在uses里添加RvClass,RvCsStd