Rave Report erstellen

[Frank_M]

Na ja so gehts auch...

Die Const fliegen raus, jetzt komme ich endlcih weiter..

Delphi-Quellcode:

//#############################################################################
procedure TForm1.RvCustomConnectionGetCols(Connection: TRvCustomConnection);
begin
  with Connection do begin
     WriteField('Spalte4', dtString, 30, '', '');
     WriteField('Spalte5', dtString, 30, '', '');
     WriteField('Spalte6', dtString, 30, '', '');
  end;
end;


//#############################################################################
procedure TForm1.RvCustomConnectionOpen(Connection: TRvCustomConnection);
begin
    RaveZeile:=0;
end;


//#############################################################################
procedure TForm1.RvCustomConnectionNext(Connection: TRvCustomConnection);
begin
    inc(RaveZeile);
end;



//#############################################################################
procedure TForm1.RvCustomConnectionEOF(Connection: TRvCustomConnection;
  var Eof: Boolean);
begin
  Eof := (RaveZeile > 3);
end;


//#############################################################################
procedure TForm1.RvCustomConnectionGetRow(Connection: TRvCustomConnection);
const MyArray1: array[0..3] of string = ('Frank', 'Uwe', 'klaus', 'Tina');
const MyArray2: array[0..3] of string = ('Berlin', 'Hamburg', 'Kiel', 'Koblenz');
const MyArray3: array[0..3] of string = ('1', '2', '3', '4');
begin
  with Connection do begin
     Connection.WriteStrData(MyArray1[RaveZeile], '');
     Connection.WriteStrData(MyArray2[RaveZeile], '');
     Connection.WriteStrData(MyArray3[RaveZeile], '');
  end;
end;