Delphi/Lazarus: Item bzw. Zeile zu ListView hinzufügen

Will man ein Item zu einer ListBox in Delphi oder Lazarus hinzufügen, kann man dies einfach über die Funktion Add machen:

ListBox1.Items.Add('Dieser Text wird hinzugefügt.');

Ein wenig komplizierter gestaltet sich das Vorhaben, wenn wir ein Item beziehungsweise eine Zeile zu einer ListView hinzufügen möchten, da jede Zeile einer TListView aus mehreren Items (den Spalten) bestehen kann.

Jede Zeile besteht aus einem TListItem, die wir einzeln anlegen und zu unser ListView hinzufügen müssen:

var
  li: TListItem;
begin
  li:=ListView1.Items.Add;
  li.Caption:='Erste Spalte';
  li.SubItems.Add('Zweite Spalte');
  li.SubItems.Add('Dritte Spalte');
end;

Zunächst setzen wir das Item "li" auf ein neues Item unserer ListView. Anschließend setzen wir die Caption (das ist unserer erste Spalte) und fügen so viele SubItems hinzu, wie wir benötigen (das sind die folgenden Spalten).

Alternative Schreibweise

Wollen wir nicht extra die Variable TListItem deklarieren müssen, können wir auch so vorgehen:

with ListView1.Items.Add do begin
   Caption:='Erste Spalte';
   SubItems.Add('Zweite Spalte');
   SubItems.Add('Dritte Spalte');
end;

Das macht genau dasselbe wie das erste Beispiel.

Mehrere Items hinzufügen

Möchten wir mehrere Items hinzufügen (zum Beispiel in einer Schleife), können wir eine der beiden Vorgänge einfach mehrfach wiederholen.