Hola Olenkaguilar.
Cita:
Empezado por Olenkaguilar
...
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
|
Fijate si este ejemplo hace lo que buscas:
Código Delphi
[-]
...
implementation
uses Clipbrd;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
ListView1.RowSelect := True;
ListView1.MultiSelect := True;
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if ListView1.SelCount = 0 then
Abort;
end;
procedure TForm1.CopySelect1Click(Sender: TObject);
var
c,f,k : Integer;
lv: TListView;
s : string;
begin
lv := ListView1;
Clipboard.Clear;
s := '';
for f := 0 to lv.Items.Count - 1 do
begin
k := 0;
if lv.Items[f].Selected then
begin
s := s + Format('%s : %s, ',[lv.Columns[k].Caption, lv.Items[f].Caption]);
for c := 0 to lv.Items[f].SubItems.Count - 1 do
begin
Inc(k);
s := s + Format('%s : %s, ',[lv.Columns[k].Caption, lv.Items[f].SubItems[c]]);
end;
SetLength(s, Length(s) - 2);
s := s + #$D#$A;
end;
end;
Clipboard.AsText := s;
end;
Salida:
Saludos