Delphi/Lazarus: Ajouter un Item ou Ligne à ListView

Si vous souhaitez ajouter un item ou élément à une ListBox dans Delphi ou Lazarus, vous pouvez simplement utiliser la fonction Add pour cela:

ListBox1.Items.Add('Ce texte sera ajouté.');

La procédure est un peu plus complexe lorsque vous essayez d'ajouter un nouvel élément ou une nouvelle ligne à un ListView, car chaque ligne d'un TListView peut être constituée de plusieurs éléments (qui sont les colonnes).

Chaque ligne se compose d'un TListItem, que nous devons créer et ajouter individuellement à notre ListView:

var
  li: TListItem;
begin
  li:=ListView1.Items.Add;
  li.Caption:='Première Colonne';
  li.SubItems.Add('Deuxième Colonne');
  li.SubItems.Add('Troisième Colonne');
end;

Tout d'abord, nous définissons l'élément "li" sur un nouvel élément de notre ListView. Après cela, nous définissons la caption (qui est affichée comme première colonne) et ajoutons autant de sous-éléments que nous le souhaitons (qui sont les colonnes suivantes).

Écriture alternative

Si nous ne voulons pas déclarer la variable TListItem séparément, nous pouvons également procéder comme suit:

with ListView1.Items.Add do begin
   Caption:='Première Colonne';
   SubItems.Add('Deuxième Colonne');
   SubItems.Add('Troisième Colonne');
end;

Cela a le même effet que notre premier exemple.

Ajouter plusieurs éléments

Si nous voulons ajouter plusieurs éléments en même temps (par exemple au sein d'une boucle, nous pouvons simplement répéter l'une des procédures décrites aussi souvent que nécessaire.