Borrar varios elementos de un TreeView

[annieruci]

Gracias por dedicarme un tiempo pero si cambio esa linea me da este error
y no hace nada no mueve ni uno aunque sea:
List index out of bounds(1).

[*Caro*]

Empezado por annieruci

.............si cambio esa linea me da este error
y no hace nada no mueve ni uno aunque sea:
List index out of bounds(1).

Que raro , acabo de probarlo y si funciona y no da error, puedes poner el codigo con el que estas probando ahora o subir el proyecto solo con esta parte para poder revisarlo mejor.

Saluditos

[annieruci]

actualmente lo he probado todo, ya no se que mas me probar,

Código Delphi [-]
for i:= TreeView1.SelectionCount-1 downto 0 do
     begin
      TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
      TreeView1.Selections[i].Delete;
     end;

me mueve el primer elemento siempre, solo el primero aunque marque el 4 me mueve el 1.

Código Delphi [-]
for i := 0 to TreeView1.Items.Count-1 do
   begin
    if TreeView1.Items[i].Selected then
     begin
      TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
      TreeView1.Items[i].Delete;
      Dec(cant);
     end;

este es el codigo que estoy probando pero repito que cuando marco dos consecutivos me da el error parece que al borrar una posicion se marea, estoy usando delphi 6 y conexion a Oracle, son dos treeview y un boton que mueve los datos de un lado a otro solo eso,

Saludos

[*Caro*]

En el primer codigo, no has cambiado la linea que te dije, por eso siempre se copia el primero. Te adjunto un ejemplo.

Si tienes dudas pregunta.

Saluditos

[*Caro*]

No te olvides utilizar etiquetas [ delphi] tu codigo [ /delphi] (sin el espacio), para que se vea mejor tu codigo o también lo puedes hacer desde el mismo editor.

Saluditos

[annieruci]

Gracias por la ayuda, ya con ese ejemplo que has mandado lo entendi todo, y lo mejor de todo es que no me da ningun error, gracias por la yuda y disculpa las molestias.

Saludos y Gracias