portapapeles en delphi

[padrino]

Hola, bueno mi problema es el siguiente, en excel tengo una columna de informacion la selecciono y la quiero pegar en mi aplicacion siendo esto en un stringgrid, y la verdad he investigado pero no entiendo mucho como puedo manipular el portapapeles. espero me puedan ayudar

[JavierB]

Hola padrino

En Delphi tienes el objeto TClipboard y algunos controles, por ejemplo los TEdit, tienen los métodos CopyToClipboard y PasteFromClipboard (copiar al portapapeles y pegar desde el portapapeles). En la propia ayuda de Delphi encontrarás información y algún ejemplo.

Espero que esto te oriente algo. Saludos,

[padrino]

Gracias JavierB, la verdad no sabia de ese metodo es muy interesante, mira hasta ahorita lo que he logrado es pegar el contenido del portapapeles en un richedit, en los edit tambien, pero lo que no puedo es copiar por ejemplo una columna de datos de excel y pegarla en un stringgrid, ya lo que trate de un principio era pasar el contenido del portapepeles a una variable string y manipularla, pero cuando copio de excel los datos los separa por medio de 2 caracteres rarros paresen "||" y se me figura que no seria el procedimiento adecuado el manipular esa cadena.

[padrino]

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

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"