Inhalt von TListView in Zwischenablage kopieren

[DevidEspenschied]

Danke für den Tip. Ich habe es jetzt folgendermaßen angepasst:

Delphi-Quellcode:

var Liste : TStrings;
    i     : Integer;
begin
  Liste:=TStringList.Create;
  try
    for i:=0 TO ListView1.Items.Count-1 do Liste.Add(ListView1.Items[i].Caption);
    Clipboard.SetTextBuf(PChar(Liste.Text+#0));
  finally
    Liste.Free;
  end;
end;