Ver Mensaje Individual
  #4 (permalink)  
Antiguo 06/01/2005, 13:00
Avatar de padrino
padrino
 
Fecha de Ingreso: mayo-2004
Ubicación: Aguascalientes, Ags. la tierra de la gente buena
Mensajes: 161
Antigüedad: 20 años
Puntos: 0
Sonrisa pegar los datos del portapapeles en un stringgrid

Bueno, ya pude, y este es el codigo que utilize: por si a alguien mas le sirve, y gracias por tu ayuda JavierB fue de gran ayuda. les comento que esto funcion de la siguiente forma copia una columna de datos de excel y dando click en un boton de la aplicacion se pegaran en un stringgrid

Cita:
procedure TfrmCompararRegistros.btnDatosOrigenClick(Sender: TObject);
var
Vtextbuf:string;
Vnren:integer;
begin
if Clipboard.HasFormat(CF_TEXT) then
begin
Vtextbuf:= Clipboard.AsText;
Vnren:=0;
stringgrid1.RowCount:=1;
while (pos(#13,Vtextbuf)>0)and(length(Vtextbuf)>2) do
begin
stringgrid1.Cells[0,Vnren]:=copy(Vtextbuf,1,pos(#13,Vtextbuf)-1);
delete(Vtextbuf,1,pos(#13,Vtextbuf)+1);
if (length(Vtextbuf)>2) then
begin
stringgrid1.RowCount:=stringgrid1.RowCount+1;
Vnren:=Vnren+1;
end;
end;
end
else
ShowMessage('No hay texto en el PortaPapeles/There is no text on the Clipboard');
end;


tambien se debera de agregar en la seccion de uses "clipbrd"
__________________
The God Father
__________________________________________
No hay un error tan grande como el de no seguir adelante (:pensando:) William Blake

Última edición por padrino; 06/01/2005 a las 13:03 Razón: falto respuesta