Eliminación Selectiva en ListView

[MaMu]

Tengo un problema, yo quiero eliminar los items de un ListView segun se cumpla la condicion que establezco, siendo por ejemplo, un string en un subitem determinado; lo que hago es lo siguiente:

Código Delphi [-]
if ListView2.Items.Count>0
            then begin
              for w:=0 to ListView2.Items.Count-1 do
                begin
                  if ((LowerCase(ListView2.Items.Item[w].SubItems.Strings[8]))=ruta) 
// lo verifique y ambas cadenas de strings son identicas, 
//cumple la condicion perfectamente, pero al eliminar......
                    then begin
                          ListView2.Items.Delete(ListView2.Items.Item[w].Index);
                          //Tira error Access Violation...etc.
                    end;
                end;
            end;

Que estoy haciendo mal?

[[maeyanes]]

Hola...

Por que no usas directamente el valor de w para referenciar el Item que quieres eliminar?

Código Delphi [-]
if ListView2.Items.Count > 0 then
  for w := 0 to Pred(ListView2.Items.Count) do
    if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then
      ListView2.Items.Delete(w)

Saludos...

[MaMu]

Empezado por maeyanes

Hola...

Por que no usas directamente el valor de w para referenciar el Item que quieres eliminar?


Código Delphi [-]
if ListView2.Items.Count > 0 then
for w := 0 to Pred(ListView2.Items.Count) do
if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then
ListView2.Items.Delete(w)






Saludos...

Me tirar error access violation, otra vez

[[maeyanes]]

Hola...

El código que pusiste es exactamente el que usas? Por que ese código no muestra nada que pueda provocar ese error...



Saludos...

[keyboy]

Me parece que debes recorrer la lista alrevés. En lugar de

Código Delphi [-]
for w := 0 to Pred(ListView2.Items.Count) do

prueba con

Código Delphi [-]
for w := Pred(ListView2.Items.Count) downto 0 do

Bye

[ixMike]

Iba sugerirte lo mismo que keyboy, a mí me pasaba lo mismo con TStrings, hasta que me di cuenta de que si si recorro del 0 al 10, cuando he borrado los cinco primeros, después no hay elemento 6, ni 7....

por eso hay que ir desde el último hasta el primero.


Salu2.

[[maeyanes]]

Hola...

Cierto, cierto... pasé en alto ese aspecto... xDDD

Prueba a cambiar el ciclo for como ya te han recomendado y tu problema debería solucionarse...



Saludos...

[jhonny]

Tambien es quizá, porque el Item que esta en la posicion involucrada realmente no existe, según lo que entiendo, lo que quiere mamu es eliminar el SubItem 8 de un Item... lo cual se lograría asi, tomando como referencia el codigo de maeyanes y de keyboy:

Código Delphi [-]
if ListView2.Items.Count > 0 then
  for w := Pred(ListView2.Items.Count) downto 0 do
     if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then
       ListView2.Items[w].SubItem.Delete(8);

Bueno, eso es lo que creo que se necesita, espero que asi sea y que funcione .

[[maeyanes]]

Hola...

Empezado por jhonny

Quizá es porque el Item que esta en la posicion involucrada realmente no existe, según lo que entiendo, lo que quiere mamu es eliminar el SubItem 8 de un Item... lo cual se lograría asi, tomando como referencia el codigo de maeyanes:

Código Delphi [-]
if ListView2.Items.Count > 0 then
  for w := 0 to Pred(ListView2.Items.Count) do
    if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then
      ListView2.Items[w].SubItem.Delete(8);

Bueno, eso es lo que creo que se necesita, espero que asi sea y que funcione .

Bueno, lo que yo entiendo es que quiere eliminar el Item en el que el SubItem con índice 8 tenga un valor igual a la variable Ruta...



Saludos...

[jhonny]

Empezado por maeyanes

Hola...



Bueno, lo que yo entiendo es que quiere eliminar el Item en el que el SubItem con índice 8 tenga un valor igual a la variable Ruta...



Saludos...

Si, esa es una duda que me ronda en la cabeza desde que leí la pregunta , no se si la cosa es como yo la entendí o como ustedes la han entendido , si mamu necesita lo que ustedes han comentado, bastaria con lo que tu y keyboy han sugerido , si no, solo hay que hacerle ese ajustecito.

[[maeyanes]]

Empezado por jhonny

Si, esa es una duda que me ronda en la cabeza desde que leí la pregunta , no se si la cosa es como yo la entendí o como ustedes la han entendido , si mamu necesita lo que ustedes han comentado, bastaria con lo que tu y keyboy han sugerido , si no, solo hay que hacerle ese ajustecito.

Bueno... que no se diga que en este Club no se dan varias soluciones para un problema...



Saludos...

[ixMike]

Empezado por jhonny

Tambien es quizá, porque el Item que esta en la posicion involucrada realmente no existe, según lo que entiendo, lo que quiere mamu es eliminar el SubItem 8 de un Item... lo cual se lograría asi, tomando como referencia el codigo de maeyanes y de keyboy:

Código Delphi [-]if ListView2.Items.Count > 0 then for w := Pred(ListView2.Items.Count) downto 0 do if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then ListView2.Items[w].SubItem.Delete(8);


Bueno, eso es lo que creo que se necesita, espero que asi sea y que funcione .

¿No saldría un error tipo "List index out of bounds (8)" o algo así?

[MaMu]

Empezado por keyboy

Me parece que debes recorrer la lista alrevés. En lugar de


Código Delphi [-]
for w := 0 to Pred(ListView2.Items.Count) do





prueba con


Código Delphi [-]
for w := Pred(ListView2.Items.Count) downto 0 do





Bye

SOLUCIONADO

Aplicando el razonamiendo de keyboy

[jhonny]

Empezado por ixMike

¿No saldría un error tipo "List index out of bounds (8)" o algo así?

Si, pero me supuse que de alguna manera todos los Items tienen el SubItem 8, o que mamu lo ha puesto como ejemplo, ya que desde antes se evalua en esta linea .

Código Delphi [-]
if LowerCase(ListView2.Items[w].SubItems[8]) = Ruta then

Bueno, pero de todas formas, por lo visto la cosa funciono bien .