Buenas tengo un listview y con un PopupMenu tengo 2 opciones: de copiar toda la fila y copiar todas las filas obviamente con contenido.
Código Delphi
[-]procedure TFmainViewTCP.Copy1Click(Sender: TObject);
var
Str:String;
k :Integer;
lItem:TListItem;
begin
repeat
lItem:=lvConnection.Selected;
Str:=lItem.Caption;
for k:=0 to lvConnection.Columns.Count-2 do
begin
Str:=Str+' '+lItem.SubItems[k];
end;
Clipboard.AsText:=Clipboard.AsText+ sLineBreak +Str;
until lItem.Selected=True;
end;
Ese code me funciona no también, no sé cuando antes tengo algo en el clipboard copiado y copio la fila seleccionada del listview, al pegar en un block de notas pega lo que tenía copiado( cualquier cosa) y lo de la fila del listview, por eso digo que no me funciona muy bien.. bueno y al pegar en el block de notas me queda de la siguiente forma:
Arroz costeño 12kg 20unid
Al pegar en un block de notas como puedo hacer para que me salga de esta forma :
PRODUCTO : Arroz , MARCA : costeño , PESO : 12kg , CANTIDAD : 20unid
Cabe mencionar que lo agregado osea lo que está en mayúscula es cada columna del listview