4 replies to this topic

[enecumene]

Pues esto, estoy tratando de eliminar todos los nodos hijos de un nodo padre en un Treeview, primera vez que me sucede con este problema, en el código recorro todos los nodos y verifico si es un nodo padre y tiene hijos entonces procedo a eliminarlos, pero me da un error extraño de "Invalid Index", pero aún así me elimina todos los hijos sin problema, dejo el código para que me echen una manita a ver en qué estoy fallando:

delphi

procedure cleanTreeNodes(Tree: TTreeView);
var p,h: integer;
begin
  for p := 0 to Tree.Items.Count -1 do
  begin
    if (Tree.Items[p].Parent = nil) And (Tree.Items[p].Count > 0) then
      for h := 0 to Tree.Items[p].Count -1 do
        Tree.Items[p].DeleteChildren;
  end;
end;

Saludos.

[Delphius]

En lugar de recorrer desde el 0 a count recorre en sentido inverso, desde Count a 0.

Parecerá tonto pero en realidad se debe a que cuando se está eliminando items se debe ir "recalculando" la cantidad de elementos sobrantes.

 

Saludos,

[enecumene]

Pues no es tonto, ¡ya lo había intentado! y el resultado es el mismo, de todos modos lo acabo de solucionar de otro modo, y es alojando el índice del nodo en una variable privada y el procedimiento se encarga de borrar los hijos a través de un índice dado, en este caso la variable global privada, el procedimiento queda así:

delphi

procedure cleanTreeNodes(Tree: TTreeView; Index: Integer);
begin
  if (Tree.Items[Index].Parent = nil) And (Tree.Items[Index].Count > 0) then
    Tree.Items[Index].DeleteChildren;
end;

Así que es más corto y menos forzado, de todos modos espero variantes a ver si me saca la duda del anterior código.

 

Saludos.

[egostar]

Hola amigo, 

 

Y si borras siempre el primero ??? es decir, sin recorrer el treeview.

 

Saludos

[enecumene]

Pues el primero es el nodo padre, y ese no se elimina, sólo sus hijos (Un padre de esos calentudos tienen más de un hijo ¿no?) y quede el padre sólo.