Indice incorrecto

[__cadetill]

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!!!

[VolaRe]

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

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

o este...

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

[jplj]

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

[__cadetill]

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

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

o bien con el while que te comentaba

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

[VolaRe]

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

[VolaRe]

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