Investigando puede llegar a una solucion espero que les sirva a alguien agrego el codigo que use en los eventos ongetCols y onGetRows del rvCustomconnection
Código:
procedure TForm2.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
With Connection do
begin
DoGetCols; // Creo las columnas (campos)
WriteField('Apellido', dtString, 50, '','');
WriteField('Nombre', dtString, 50, '','');
WriteField('Provincia', dtString, 50, '','');
WriteField('Profesion', dtString, 50, '','');
end;
end;
procedure TForm2.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
var
i: integer;
begin
i := grid2.RowCount - 1;
Connection.DataRows := i;
if Connection.DataIndex < Connection.DataRows then
begin
TempList.Clear; // TStrings declarado Global
TempList.AddStrings(grid2.Rows[Connection.dataindex + 1]);// asigno al TStrings la fila de la grilla
Connection.WriteStrData( '',TempList.Strings[3]); //Asigno de la lista el elmento al campo correspondiente
Connection.WriteStrData( '',TempList.Strings[1]);
Connection.WriteStrData( '',TempList.Strings[0]);
Connection.WriteStrData( '',TempList.Strings[2]);
Connection.WriteNullData;
end
else
Connection.DoEOF;
end;
Espero que a alguien le sirva es la forma que encontre de hacerlo si alguien encuentra una manera distinta soy todo oidos
muchas gracias