comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Pegar multiples renglones en un DBGrid

  • 0 Respuestas
  • 1761 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5411
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Febrero 24, 2010, 04:52:37 pm »
Necesitamos un TMemo en nuestra aplicación, el cual estará invisible y será para pasar temporalemente el contenido del portapapeles, esto para luego pasar linea a linea este contenido a nuestro DBGrid.

Código: Delphi
  1. procedure TfrmPpal.mnPegarClick(Sender: TObject);
  2. var
  3.   i: Integer;
  4. begin
  5.   if Clipboard.HasFormat(CF_TEXT) then  //Verifica si el portapapeles tiene texto (no imagenes)
  6.      begin
  7.        mmClipboard.Clear;  //Limpiamos nuestro TMemo
  8.        mmClipboard.PasteFromClipboard;
  9.        i := mmClipboard.Lines.Count - 1;  //Establecemos i con las líneas que tiene el TMemo, si son 5 lineas, i vale 5
  10.        while i >= 0 do
  11.           begin
  12.             ADOTablaComp.Insert;
  13. //Ahora vamos a pegar el contenido de la línea "i" en el DBGrid
  14.             ADOTablaComp.FieldByName('NombrePC').AsString := mmClipboard.Lines[i];  
  15.             try
  16.               ADOTablaComp.Post;  //intentamos hacer el post
  17.             except  //este except es por si tienes indice en el campo a pegar y no aceptas duplicados
  18.               ShowMessage('El texto ' + mmClipboard.Lines[i] + ' ya está dado de alta');
  19.               ADOTablaComp.CancelUpdates;  //esto elimina el dato que queremos pegar y está duplicado
  20.             end;//try
  21.           i := i - 1;
  22.           end; //while
  23.      end; //if Clipboard contiene texto
  24. end;

« Última modificación: Abril 15, 2013, 11:24:20 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Editar una celda en un DBGrid

Iniciado por ANTRAX

Respuestas: 1
Vistas: 3517
Último mensaje Mayo 17, 2011, 07:57:06 pm
por AD0