Von Listview in ein Memo

[Popov]

Hier etwas auf die Schnelle, obwohl es eigentlich auch einfacher gehen müßte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, k: Integer;
begin
  with ListView1, Memo1 do
  begin
    Lines.Clear;

    for i := 0 to Items.Count - 1 do
    begin
      Lines.Add(Items[i].Caption);

      for k := 0 to Items[i].SubItems.Count - 1 do
        Lines.Add(Items[i].SubItems[k]);

      Lines.Add('------------------------------');
      Lines.Add('');
    end;
  end;
end;

Und hier noch mal ein Beispiel um ein ListView mit Daten zu füllen (aus der Delphi OH):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

const
  Names: array[0..5, 0..1] of string = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rocky')
    );

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
begin
  with ListView1 do
  begin
    Parent := Self;
    Align := alClient;

    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;