ListView ganze reihe in zwischenablage kopieren

[sx2008]

Delphi-Quellcode:

const
  TAB = #8;
var
  li : TListItem;
  line : string;
  i : Integer;
begin
  li := ListView1.Selected;
  if not Assigned(li) then
    exit;  // nichts selektiert
  // Zeile mit Tabulator als Trennzeichen bilden
  line := li.Caption;
  for i := 0 to li.SubItems.Count-1 do
    line := line + TAB + li.SubItems[i];
  Clipboard.AsText := line;  // ab ins Clipboard