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;

[Bummi]

Hi @Volker, jetzt darf man gespannt sein ob Deine den Anforderungen entsprechende, oder meine den erwarteten Ausgaben folgende Umsetzung gemeint war.

[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;

[Volker Z.]

Hallo,

@Bummi Ich glaube Thread-Steller muss beide Versionen kombinieren. Ich habe die Leerzeile zwischen den Listeneinträgen vergessen und ich meine, dass Deine Variante Menge und Verfügbarkeit listet. Ansonsten war es wohl die berühmte Hundertstel.

Gruß

[Bummi]

M*** ... ich habe die letzte bzw. vorletzte Zeile übersehen ...