FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Pegar de Clipboard a StringGrid
var
Vtextbuf:string; Vnren:integer; columna:integer; begin if Clipboard.HasFormat(CF_TEXT) then begin Vtextbuf:= Clipboard.AsText; Vnren:=1; stringgrid1.RowCount:=2; columna:=strtoint(edit1.text); while (pos(#13,Vtextbuf)>0)and(length(Vtextbuf)>2) do begin stringgrid1.Cells[Columna,Vnren]:=copy(Vtextbuf,1,pos(#13,Vtextbuf)-1); delete(Vtextbuf,1,pos(#13#10,Vtextbuf)+1); if (length(Vtextbuf)>2) then begin stringgrid1.RowCount:=stringgrid1.RowCount+1; Vnren:=Vnren+1; end; // ShowMessage(Vtextbuf); end; bt_validar.Click; end else ShowMessage('No hay texto en el PortaPapeles'); Este Codigo me entrega lo copiado pero no el ultimo valor que puede ser? |
#2
|
||||
|
||||
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración
Recuerda poner los tags al código fuente, ejemplo: Gracias |
#3
|
||||
|
||||
Hola Cristhor1982.
Si no interpreté mal la finalidad del código, yo haría:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#4
|
||||
|
||||
Cristhor1982,
Revisa este código: El código anterior permite copiar por medio del Clipboard filas y columnas de data desde y hacia un control TStringGrid, es práctico para el intercambio de data con Excel. Espero sea útil Nelson. Última edición por nlsgarcia fecha: 08-12-2012 a las 03:22:55. |
#5
|
||||
|
||||
No logro pegar desde la Row 1 de la grilla, siempre comienza de la Row 0, me puedes ayudar, gracias
|
#6
|
||||
|
||||
Cristhor1982,
El código que te indique anteriormente define de forma dinámica las filas y columnas del control TStringGrid y permite copiar desde y hacia el control por medio del Clipboard, quizás esta solución se pueda adaptar a tu proyecto. Espero sea útil Nelson. |
#7
|
||||
|
||||
Muchas gracias, me parece que voy a probar poniendole algun ciclo...
|
#8
|
||||
|
||||
Cita:
De este modo pegará los valores en la columna y a partir de la fila que indique la celda seleccionada actualmente: Si deseas utilizar el edit para seleccionar la columna, reemplaza la línea (*) por:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
||||
|
||||
Ecfisa
Muchas Gracias...Resulto a la perfeccion |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar/pegar desde el Clipboard a otra Aplicación | broly7 | Varios | 4 | 07-03-2011 17:08:53 |
Pegar imagen desde el Portapapeles (Clipboard) | gluglu | Gráficos | 8 | 20-10-2010 15:09:55 |
tabla a clipboard | picap | Varios | 4 | 13-05-2010 08:23:07 |
Copiar Y Pegar texto en las celdas de un StringGrid | rgstuamigo | OOP | 2 | 01-12-2008 13:55:51 |
Una clase al ClipBoard | bustio | OOP | 2 | 07-07-2004 00:35:16 |
|