Copiar de un ListView al clipboard

[ecfisa]

Hola Olenkaguilar.

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