1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
  Connection.DataRows := 1;
end;

procedure TForm1.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
Var i,N : IntegeR;
begin
   For i := 1 to Sgrid.RowCount -1 do
    for N := 0 to SGrid.ColCount -1 do
    Connection.WriteField('Field'+IntToStr(i)+IntToStr(n),dtString,20,'','');
end;

procedure TForm1.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
Var i,N : IntegeR;
begin
   For i := 1 to Sgrid.RowCount -1 do
    for N := 0 to SGrid.ColCount -1 do
     Connection.WriteStrData(SGrid.Cells[i,n],'Fakin nativ');

end;					

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:

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);  
begin  
  Connection.DataRows := Sgrid.RowCount;  //hier kommt die ANZAHL der Datensätze hin
end;  

 
procedure TForm1.RvCustomConnection1GetCols(  
  Connection: TRvCustomConnection);  
Var i,N : IntegeR;  
begin  
//   For i := 1 to Sgrid.RowCount -1 do  //brauchst du nicht
    for N := 0 to SGrid.ColCount -1 do  //nur die Saplten = Feldbezeichner
    Connection.WriteField('Field'+IntToStr(n),dtString,20,'','');  
end;  

 
procedure TForm1.RvCustomConnection1GetRow(  
  Connection: TRvCustomConnection);  
Var i,N : IntegeR;  
begin  
//   For i := 1 to Sgrid.RowCount -1 do  //brauchst du nicht
//nur Spaltenweise, getrow wird für jeden Datensatz aufgerufen
//mit connection dataindex, weißt du, wo du bist.
    for N := 0 to SGrid.ColCount -1 do  
//es heißt cells[acol,arow], in deinem code war das verkehrt herum
     Connection.WriteStrData(SGrid.Cells[n,connection.dataindex],'Fakin nativ');  
end;