Inhalt von TListView in Zwischenablage kopieren

[devidespe]

Hallo,

wie kann ich ein bereits gefülltes TListView-Objekt bzw. die darin enthaltenen Texte in die Zwischenblage kopieren?

Bei TMemo etwa existiert ja die Funktion CopyToClipBoard, bei TListView-Objekten gibt es so etwas aber nicht.

Danke für die Hilfe.

[Luckie]

http://www.delphipraxis.net/internal...zwischenablage

[devidespe]

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;

[sx2008]

Delphi-Quellcode:

// Clipboard.SetTextBuf(PChar(Liste.Text+#0));  // Unschön !! unnötige Kopiererei von Speicher
Clipboard.AsText := Liste.Text;  // besser