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? |
|
|
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 |
|