1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
procedure TForm8.Button1Click(Sender: TObject);
var
ma_Page: TRavePage;
champs: TRaveDataMemo;
//test : TRaveDataMemo;
begin
// ouverture du composant rave
RvProject1.Open;
// création du champs texte_a_remplacer
With RvProject1.ProjMan do begin
ma_page := FindRaveComponent('report1.page1',nil) as TRavePage;
champs := FindRaveComponent('datamemo1',ma_page) as TRaveDataMemo;
champs.Text := memo1.Text; // ne pas mettre les '' '' s'il s'agit d'une variable
end;
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject := RvRenderpdf1;
RvSystem1.OutputFileName := 'f:/test1.pdf';
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
RvSystem1.Execute;
RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end; |
