Copiar el contenido de un dbgrid y pegarlo en otro lado

[ctronx]

Saludos, como podria Copiar el contenido de un dbgrid y pegarlo en otro lado como por ejemplo excel, podria hacerse de la forma siguiente??
1.-seleccionar las filas del dbgrid (todo el dbgrid)
2.-copiarlas (como edicion copiar ó control-c)
3.-en Excel pegarlas (como edicion pegar ó control-v)

Gracias por la ayuda que puedan darme.

[Neftali [Germán.Estévez]]

Empezado por ctronx

...como podria Copiar el contenido de un dbgrid y pegarlo en otro lado como por ejemplo excel, podria hacerse de la forma siguiente??
1.-seleccionar las filas del dbgrid (todo el dbgrid)
2.-copiarlas (como edicion copiar ó control-c)
3.-en Excel pegarlas (como edicion pegar ó control-v)

Bueno para poder "pegar" el contenido del DBGrid en Excel, debes "mardar" al portapapeles un string con formato determinado; Para separar las líneas un CRLF y para los campos dentro de una fila un TAB. Con eso conseguirás que en Excel se "pegue" correctamente.

Se trata de recorrer las filas seleccionadas (Bookmarks) y crear un string con los datos.

En el botón de copiar coloca el siguiente código:

Código Delphi [-]
  var
   i, j: Integer;
   s: string;
 begin
   // Hay varias seleccionadas
   if (DBGrid1.SelectedRows.Count > 0) then begin
     with DBGrid1.DataSource.DataSet do
       // Para cada fila seleccioada
       for i:=0 to (DBGrid1.SelectedRows.Count-1) do begin
         // ir a la fila
         GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
         // Para cada columna
         for j := 0 to FieldCount-1 do begin
           // Separador dentro de la fila (TAB)
           if (j>0) then begin
             s:=s + #9;
           end;
            s:=s+Fields[j].AsString;
          end;
           // Separador de fila (CRLF)
           s:=s + #13#10;
       end;
   end;
 
   // Copiar al portapapeles.
   Clipboard.AsText := s;

Añade a la unit la unit Clipbrd;
El DBGrid debe tener las opciones dbRowSelect y dgMultiSelect activadas.

[ctronx]

Muchas Gracias, tus indicaciones funcionan sin problemas.
Hay manera de seleccionar todas las filas del dbgrid de un solo paso?.

[Neftali [Germán.Estévez]]

Sí se puede con una pequeña rutinilla que puedes encontrar en éste hilo.

http://www.clubdelphi.com/foros/showthread.php?t=17292