unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RpRave, RpDefine, RpRender, RpRenderRTF, RpCon;
type
TForm1 =
class(TForm)
RvProject1: TRvProject;
Button1: TButton;
RvCustomConnection1: TRvCustomConnection;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RvCustomConnection1Open(Connection: TRvCustomConnection);
procedure RvCustomConnection1GetRow(Connection: TRvCustomConnection);
procedure RvCustomConnection1GetCols(Connection: TRvCustomConnection);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
IntArray:
Array[1..100]
of integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
For i := 1
to 100
do IntArray[i] := i;
end;
procedure TForm1.Button1Click(Sender: TObject);
var wert:
String;
begin
wert := '
100';
// RvProject1.SetParam('wert',wert);
RvProject1.ExecuteReport('
report1');
end;
procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
//Anzahl der Datenzeilen; Da hier headerdaten nur 1
Connection.DataRows := 1;
end;
procedure TForm1.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
begin
//Tatsächlichen Daten an den Report übergeben
connection.WriteStrData('
',inttostr(intArray[1]));
end;
procedure TForm1.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
//Datenfelder definieren
connection.WriteField('
Name',dtString,30,'
','
');
end;
end.