Listvieweintrag in Zwischenablage kopieren

[dopeline]

Hallo!

ich habe ein listview mit 8 spalten. ich bentze folgenden code, um den eintrag zu kopieren:

Delphi-Quellcode:

uses ClipBrd;

....

procedure TForm1.ButtonKopierenClick(Sender: TObject);
begin
 Clipboard.AsText := 'Artikel:  '+ListView1.ItemFocused.Caption+chr(13)+
                    'Artikelnummer:  '+ListView1.ItemFocused.SubItems[0]+chr(13)+
                    'Kaufpreis:  '+ListView1.ItemFocused.SubItems[1]+' €'+chr(13)+
                    'Versandkosten:  '+ListView1.ItemFocused.SubItems[2]+' €'+chr(13)+
                    'Gesamtpreis:  '+ListView1.ItemFocused.SubItems[3]+' €'+chr(13)+
                    'Verkäufer:  '+ListView1.ItemFocused.SubItems[4]+chr(13)+
                    'Kaufdatum:  '+ListView1.ItemFocused.SubItems[5]+chr(13)+
                    'Lieferdatum:  '+ListView1.ItemFocused.SubItems[6];

end;

das funktioniert ja eigentlich auch! das problem jedoch: ich möchte dazwischen immer ein ENTER haben! wenn ich das kopierte jedoch in den editor einfüge habe ich statt nem zeilenumbruch ein kleines viereckiges kästchen!

woran liegt das?


Gruß, dopeline