Delphi/Lazarus: Agregar Item o Línea a ListView

Si desea agregar un item o elemento a un ListBox en Delphi o Lazarus, simplemente puede usar la función Add para esto:

ListBox1.Items.Add('Se agregará este texto.');

El procedimiento es un poco más complejo cuando se intenta agregar un nuevo elemento o una nueva línea a un ListView, porque cada línea de un TListView puede constar de varios elementos (que son las columnas).

Cada línea consta de un TListItem, que tenemos que crear y agregar a nuestro ListView individualmente:

var
  li: TListItem;
begin
  li:=ListView1.Items.Add;
  li.Caption:='Primera Columna';
  li.SubItems.Add('Segunda Columna');
  li.SubItems.Add('Tercera Columna');
end;

En primer lugar, establecemos el elemento "li" en un nuevo elemento de nuestro ListView. Después de eso, configuramos el caption (que se muestra como la primera columna) y agregamos tantos subelementos como queramos (que son las siguientes columnas).

Escritura alternativa

Si no queremos declarar la variable TListItem por separado, también podemos proceder de la siguiente manera:

with ListView1.Items.Add do begin
   Caption:='Primera Columna';
   SubItems.Add('Segunda Columna');
   SubItems.Add('Tercera Columna');
end;

Esto tiene el mismo efecto que nuestro primer ejemplo.

Agregar varios elementos

Si queremos agregar varios elementos al mismo tiempo (por ejemplo, dentro de un ciclo, podemos simplemente repetir uno de los procedimientos descritos tantas veces como sea necesario.