1:
2:
3:
4:
5:
6:

type TPosition = record
  Menge: Integer;
  Artikelnr: Integer;
  Artikel: String;
  Beschreibung: String;
  end;					

1:

var positionen: array of TPosition;					

1:
2:
3:
4:
5:

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
  pos_index := 0;
  RvCustomConnection1.DataRows:=Length(positionen);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.RvCustomConnection1GetRow(
 Connection: TRvCustomConnection);
begin
with RvCustomConnection1 do
    begin
       WriteInteger(positionen[pos_index].Menge);
       WriteInteger(positionen[pos_index].Artikelnr);
       WriteString(positionen[pos_index].Artikel);
       WriteString(positionen[pos_index].Beschreibung);
    end;
   Inc(pos_index);					

1:
2:
3:
4:

type TPerson = record
  Name: String;
  Vorname: String;
  end;					

1:

Person : array[1..5] of TPerson;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
  pos_index := 0;
  RvCustomConnection1.DataRows:=Length(person);
end;

procedure TForm1.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
begin
  with RvCustomConnection1 do
    begin
       WriteStr(person[pos_index].Name);
       WriteStr(person[pos_index].Vorname);

    end;
   Inc(pos_index);
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button4Click(Sender: TObject);
begin
   Person[1].Name := 'Name';
   Person[1].Vorname := 'Vorname';
   RvProject1.Open;
   RvProject1.Execute;
end;					

1:

Person : array[0..5] of TPerson;					

1:

Person[0].Name := 'Name';					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
begin
  with Connection do
    begin
         WriteStrData(Person[pos_index].Name,'');
    end;					

1:
2:
3:
4:
5:

procedure TForm1.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
  Connection.WriteField('Name',dtString,20,'','');
end;