unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpBase, RpSystem, RpDefine, RpRave, StdCtrls, RpRender,
RpRenderCanvas, RpRenderPreview,RvClass,RvCsStd,RvCsRpt;
type
TForm1 = class(TForm)
Button1: TButton;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MyPage:TRavePage;
text1,text2: TRaveText;
begin
RvProject1.Open;
with RvProject1.ProjMan do
begin
MyPage:=FindRaveComponent('report1.Page1',nil) as TRavePage;
text1:=FindRaveComponent('text1',MyPage) as TRaveText;
// text1:=TRaveText(FindRaveComponent('text1',myPage));
text2:= TRaveText(FindRaveComponent('text2',myPage));
text1.Text:='2222';
text2.Text :='999';
end;
// RvProject1.SetParam();
RvProject1.Execute;
end;
end.