Von Listview in ein Memo

[Bummi]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
 I:Integer;
begin
  for I := 0 to ListView1.Items.Count - 1 do
    begin
      Memo1.Lines.Add(ListView1.Items[i].Caption) ;
      Memo1.Lines.AddStrings( ListView1.Items[I].SubItems);
      Memo1.Lines.Add('');
    end;
end;