Von Listview in ein Memo

[Volker Z.]

Hallo,

vielleicht rettet folgendes Deinen Tag:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  i, j : Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    begin
      Memo1.Lines.Add (ListView1.Items [i].Caption);
      for j := 1 to ListView1.Items [i].SubItems.Count - 2 do
        Memo1.Lines.Add (ListView1.Items [i].SubItems [j])
    end
end;

Gruß