Imprimir Stringrid en Rave

[romeroja]

Tengo un problema al generar un reporte en rave en Delphi 7, hasta ahora lo que hacia era sacar los datos de un Clientdataset y con eso no tuve problemas, el tema es que quiero generar el reporte con los datos de un stringrid y no encuentro la forma de hacerlo, investigando encontre que el componente 'rvcustomconnection' tienen los enventos:

ongetcols y ongetrow
En el ongetcols escribo lo siguiente.

WriteField('Nombre', dtString, 20, '',''); {para crear una columna}

En el ongetrow

connection.WriteStrData('', grid2.Rows[i].text); {para crear una fila}

La verdad es que no encontre mucha informacion sobre el tema si alguien sabe algo, muchismas gracias por su ayuda;)

[romeroja]

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



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