ListView ganze reihe in zwischenablage kopieren

[omata]

Kleine Korrektur...

Delphi-Quellcode:

const
  TAB = #9;
var
  li : TListItem;
  line : string;
  i : Integer;
begin
  li := ListView1.Selected;
  if Assigned(li) then begin
    // 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
  end;
end;