Extraer informacion de ListView

[[duilioisola]]

Si el ListView se llama MiListView, debes poner el código para el borrado en el evento OnDeleteItem.

Qudaría más o menos así:

Código Delphi [-]
procedure TFMCarrito.MiListViewDeleteItem(Sender: TObject; AIndex: Integer);
var
  Str:String;
begin
   // recorrer los diferentes Objetos del Item
   for var I:integer := 0 to (MiListView.Items[AIndex].Objects.Count-1) do
      // Si son de tipo Texto los Añado
      if (MiListView.Items[AIndex].Objects[i] is TListItemText) then
         Str := TListItemText(MiListView.Items[AIndex].Objects[i]).Text;

   Label21.Text := (Str);
end;

[giantonti1801]

Empezado por duilioisola

Si el ListView se llama MiListView, debes poner el código para el borrado en el evento OnDeleteItem.

Qudaría más o menos así:

Código Delphi [-]
procedure TFMCarrito.MiListViewDeleteItem(Sender: TObject; AIndex: Integer);
var
  Str:String;
begin
   // recorrer los diferentes Objetos del Item
   for var I:integer := 0 to (MiListView.Items[AIndex].Objects.Count-1) do
      // Si son de tipo Texto los Añado
      if (MiListView.Items[AIndex].Objects[i] is TListItemText) then
         Str := TListItemText(MiListView.Items[AIndex].Objects[i]).Text;

   Label21.Text := (Str);
end;

Gracias amigos, En efecto esta opción resolvió el problema. la recomendación que le seguía a esta no la he probado y como ya está funcionando no considere prudente probar la otra opción. de igual forma agradezco a todos.