Foros Club Delphi - Indice incorrecto

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Indice incorrecto (https://www.clubdelphi.com/foros/showthread.php?t=7641)

Indice incorrecto

Hola,
haber si alguien me puede explicar porque este codigo, despues de correr, me indica "indice incorrecto". Este el el codigo:

Código:

var

  Cadena : String;

  J, I : Integer;

begin

  OpenDialog1.Title := 'Borrar dia ...';

  If OpenDialog1.Execute Then

   begin

   I := Pos(',',OpenDialog1.FileName) - 3;

   Cadena := Copy(OpenDialog1.FileName,I,20);

   Label2.Caption := Cadena;

   If MessageDlg('Estas a punto de borrar un dia, ¡estas seguro!',mtConfirmation,

   [mbYes,mbNo],0) = IdYes Then

    For J := 0 To TreeView1.Items.Count - 1 Do

     If (Cadena = TreeView1.Items[J].Text) Then

      Begin

      DeleteFile(OpenDialog1.FileName);

      TreeView1.Items[J].Selected := True;

      TreeView1.Selected.Delete;

      MessageDlg('El archivo ha sido borrado con exito',mtInformation,[mbOk],0)

      End;

   end;

end;

Exactamente, me corre el codigo perfectamente, pero cuando acaba y borro el archivo deseado me indica "Incorrecto indice", y me indica esta sentencia If (Cadena = TreeView1.Items[J].Text) Then.

Alguien me puede explicar porque, porque no lo entiendo, gracias de antemano

Y por qué en lugar de

Código:

      TreeView1.Items[J].Selected := True;

      TreeView1.Selected.Delete;

no haces directamente

Código:

TreeView1.Items[J].Delete;

????

PD: te aconsejo el uso de la etiqueta CODE para poner código

Aun me sale el error

Pues tambien tienes razon, para que poner dos lineas de codigo si con una me hace lo mismo. Pero me sigue saliendo el mismo error "Indice invalido".

Código:

If Cadena = TreeView1.Items[J].Text Then

Me señala exactamente esta sentencia, y no se que tiene esa sentencia de mal, si me lo pudieras aclarar te lo agradeceria

Bueno, el error te lo marca por culpa del bucle for. Es decir, tu incrementas el contador J hasta TreeView1.Items.Count - 1, que en un bucle for (si no voy equivocado) lo tomará como una constante (5, 6, 7, los que sean). Al hacer un delete durante la iteración del mismo, llega un momento en que te pasarás de rango.

Cambia el bucle for por uno while (en el que, por cada iteración, se evaluará la expresión) y nos comentas.

PD: bien por la etiqueta CODE!!! ;)

cadetill, pues si te digo la verdad no tengo ni idea de como ponerlo en un bucle while, porque qeu le pongo:

Código:

while cadena = TreeView1.Items.Item[J].Text Do

o este...

Código:

while Cadena <> TreeView1.Items.Item[J].Text Do

y todo esto, inicializando "J" fuera del bucle. ¿Y como le digo uqe pase al siguiente registro?. Ahi un metodo en Item[J] que es getnext, pero si lo uso tambien me da "Invalido indicd".

Asi que nano, no tengo ni puta idea de como resolver este problemilla, si me hechases una mano te lo agradeceria un monton, y eso sin contar lo que habre aprendido con esa manilla que me has hechao, sea lo que sea muchas gracias por tu interes

Prueba a realizar el bucle en sentido inverso, es decir, empenzado por el último elemento.

Bueno, puedes probar tambien lo que comenta jplj, es decir

Código:

for j := TreeView1.Items.Count - 1 downto 0 to

o bien con el while que te comentaba

Código:

J := 0;

while J <= TreeView1.Items.Count - 1 do

begin

  if (Cadena = TreeView1.Items[J].Text) Then

  begin

    DeleteFile(OpenDialog1.FileName);

    TreeView1.Items[J].Delete;

    MessageDlg('El archivo ha sido borrado con exito',mtInformation,[mbOk],0);

  end

  else

    inc(J);

end;

La diferencia del while con el for, es que cada iteración se evalua la expresión y, aunque borres un Item, al evaluarse la expresión sabrá si continuar o no. Fíjate que sólo se ha de incrementar el contador J si no se borra ningún Item

Muchas gracias a los dos.

Como habreis comprovado soy un pardillo en esto, asi que no sabeis los quebraderos de cabeza que tenia ya con esto, gracias nuevamente :D

Cita:

Empezado por jplj

Prueba a realizar el bucle en sentido inverso, es decir, empenzado por el último elemento.

gracias jplj por tu consejo, va a la perfeccion