Copiar de un ListView al clipboard

[ecfisa]

Hola de nuevo.

Agrega un item mas al TPopupMenu (vg.: Copiar todo) y quedaría mas o menos así:

Código Delphi [-]
...
implementation

uses Clipbrd;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  ListView1.RowSelect   := True;
  ListView1.MultiSelect := True;
end;

procedure TForm1.Copiar1Click(Sender: TObject);
var
  c,f,k : Integer;
  lv: TListView;
  s : string;
begin
  lv := ListView1;
  if lv.SelCount = 0 then Exit;
  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;

procedure TForm1.Copiartodo1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    Listview1.Items[i].Selected := True;
  Copiar1Click(Sender);
end;
...

Saludos