Borrar varios elementos de un TreeView

[annieruci]

Hola a todos tengo el siguiente problema:
Tengo dos treeview y 2 botones, lo que me hace falta hacer es seleccionar un hijo del treview1 y que cuando doy al boton se pasen para el treview2, para 1 solo elementos todo muy feliz, pero si me seleccionan mas de uno por ejemplo 2 elementos me da que se va de rango.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  cant: Integer;
  i: Integer;
begin
Seleccionados := TStringList.Create;
cant := TreeView1.SelectionCount;
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].Destroy;
      Dec(cant);
     end;
     if cant = 0 then
       Break;
    end;
end;

Aqui esta todo el codigo el error ocurre a partir de que borro los elementos del treeview1, si no lo borro me los copia bien y todo pero si no me da error de rango o me borra el que no es.

Saludos

[*Caro*]

Hola annieruci, prueba de esta forma:

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;

No necesitas recorrer todo el treview para encontrar los seleccionados.

Saluditos

[annieruci]

ya habia probado esa solucion pero no me resulta, hay algun problema en el oreden en que selecciono los elementos, si los selecciono de arriba hacia abajo y el for esta invertido me da error, si selecciono dos consecutivos me da error, hay pasa algo extraño que me gustaria saber que es.

[annieruci]

una posible solucion seria cambiarle el padre al treenode seleccionado
alguien sabe como hacerlo???

[*Caro*]

Hola de nuevo, ¿que error te da? debes comenzar a eliminar desde el ultimo que has seleccionado, para que no te de error de indices que no existen porque ya se ha eliminado.

El problema que veo en el codigo que he puesto, es esta linea:

Código Delphi [-]
TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);

se debe cambiar por esta:

Código Delphi [-]
TreeView2.Items.AddChild( nil, TreeView1.Selections[i].Text);

ademas de controlar cuando se quiere borrar un item que tiene subitems.

Saluditos

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