Level máximo de un TreeNode

[vejerf]

Buenas tardes,

Necesitaría alguna forma de calcular el nivel máximo que tiene un TreeNode. Todo surge porque necesito hacer una estructura jerárquica de máximo 4 niveles. Estos niveles se pueden mover de una rama a otra siempre con la restricción esta de los 4 niveles. El problema lo tengo en este caso que no sé calcular el nivel de ese subárbol que quiero mover porque posiblemente pueda tener a su vez más ramas.

Espero haberme explicado.

Muchas gracias a todos!!!

[Neftali [Germán.Estévez]]

Cada TTreeNode tiene la propiedad Level; Revísala a ver si te da lo que necesitas.
En el peor de los casos tal vez deberás hacer un recorrido para quedarte con la más grande.

[vejerf]

Hola Neftali,

Muchas gracias por tu respuesta. La verdad es que la propiedad esa ya la conocía y lo que me proporciona es el nivel de un nodo. Yo lo que necesitaba saber es es el máximo nivel de un árbol o subárbol. Podría recorrerlo entero y quedarme con el máximo, pero preguntaba por si hubiese alguna propiedad directa que me lo diera.

Gracias por tu aportación Neftali!

[*Caro*]

Empezado por vejerf

Yo lo que necesitaba saber es es el máximo nivel de un árbol o subárbol. Podría recorrerlo entero y quedarme con el máximo, pero preguntaba por si hubiese alguna propiedad directa que me lo diera.

Hola vejerf, una propiedad directa que haga eso que yo sepa no hay, debes hacer el recorrido pero no todo el arbol solo de la rama que necesites. Lo que no entiendo es si quieres el nivel del ultimo hijo o que a partir de una rama selecionada saber cuantos niveles tiene hacia abajo.

Saluditos

[*Caro*]

Hola de nuevo, tendría que ser algo así mas o menos:

Código Delphi [-]
procedure TForm1.Nivel(Nodo: TTreeNode; var NivelMax: Integer);
var
  NodoAux: TTreeNode;
  i: Integer;
begin
  for i := 0 to Nodo.Count - 1 do
  begin
    NodoAux := Nodo.Item[i];
    if NodoAux.Level>NivelMax then
     NivelMax := NodoAux.Level;
 
    Nivel(NodoAux, NivelMax);
  end;
end;
............................
 
  NivelMax : Integer;
begin
  NivelMax := -1;
  Nivel(TreeView.Selected, NivelMax);
  showmessage(IntToStr(NivelMax-TreeView.Selected.Level+1));

Si no es eso, explica un poco mas.

Saluditos

[[maeyanes]]

Hola...

Puedes obtener el máximo level al momento de ir llenando el TreeList:

Código Delphi [-]
var
  MaxLevel: Integer;

begin
  // Cuando creas la forma donde está el TreeList
  MaxLevel := 0;
  // En donde agregas los nodos o un nodo nuevo:
  ANode := TreeList1.Items.AddChild(Parent, 'Texto');
  if MaxNode < ANode.Level then
    MaxNode := ANode.Level;
end;

De esta forma obtendrás el nivel máximo cada que agregues un nodo nuevo...


Saludos...