Extraer informacion de ListView

[giantonti1801]

Hola Amigo gracias por su ayuda. Ahora estoy buscando la forma de extraer la información desde el ListView y con la opción que me dio Neftaly me trae la información perfecta en el evento onClickItem pero cuando le hago un swip y me sale el botón Delete no me está trayendo la información por lo que no puedo aplicar filtro.

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

Con esta opcion en el evento onclickItem funciona perfecto pero no me lo hace en el Swip o cuando le doy al botón delete.

[Casimiro Notevi]

¿Es para iOS?

[Neftali [Germán.Estévez]]

Lo más sencillo es que continues con la conversación anterior, ya que estás hablando sobre en mismo problema, en lugar de crear un hilo nuevo.
La información del hilo puede ser útil a otros usuarios.

Tampoco tengo claro a qué te refieres con "swip". Tal vez alguna imagen ayude.

[Neftali [Germán.Estévez]]

En el evento DeleteItem puedes probar algo como esto:

Código Delphi [-]
var
  Str:String;
begin
  Str := Str + ListView1.Items[AIndex].Text;
  ShowMessage('ListView1DeleteItem -> ' + Str);
end

Otra opción es acceder a los datos de la tabla a partir de ese texto.

NOTA: Veo que [duilioisola] se me ha adelantado. Iba a añadfir que la otra opción era hacer el CAST, de forma similar a como hemos comentado en el otro hilo.
https://www.clubdelphi.com/foros/showthread.php?t=96045

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