Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Buscar Nodo en TreeView (https://www.clubdelphi.com/foros/showthread.php?t=15293)

jymy788 18-10-2004 10:03:44

Buscar Nodo en TreeView
 
Buenos días foro.

Tengo un treeView cargado y sin expandir, y quiero buscar en él un nodo y posicionarme sobre él, expandiéndolo y posicionando el foco. Lo único que sé del nodo es el nombre, me pueden decir cual sería la forma de buscar ese nodo, más rápida?

Gracias a todos de ante mano.

Neftali [Germán.Estévez] 18-10-2004 12:12:00

Si sólo sabes el nombre y no comentas nada de que los nodos estén ordenados ni nada por el estilo (es lo único que se me ocurre -la ordenación- en lo que te podrías apoyar para buscar un método más rápido) sólo que queda buscarlo secuencialmente; Revisa la propiedad items. Algo así:

Código Delphi [-]
for i:=0 to (tree.Items.Count - 1) do begin
  if (tree.items[i].Text = 'TuNombre') then begin
    ... encontrado
  end;
end;

jymy788 18-10-2004 13:40:36

Posicionarme en un nodo de un treeView
 
Sorry.

Te cuento. Tengo un arbol recursivo, vamos con nodos dentro de nodos ..... Ya tengo un array tras realizar la búsqueda del elemento en la base de datos con la estructura donde se encuentra el nodo que yo buscaba, de la siguiente forma:

Nodo"Abuelo", Nodo"padre", Nodo"buscado".

El árbol no está expandido, y yo quiero ahora que se expanda por el nodo "buscado". Cómo lo hago? Es decir, no se trataría de recorrer ya todo el árbol verdad?

No sé si me he explicado ahora mejor.

Gracias de antemano

Neftali [Germán.Estévez] 18-10-2004 15:32:50

Cita:

Empezado por jymy788
...
Nodo"Abuelo", Nodo"padre", Nodo"buscado".

El árbol no está expandido, y yo quiero ahora que se expanda por el nodo "buscado". Cómo lo hago?

Entiendo que sólo puedes hacerlo reccorriendo los nodos del árbol hasta que encuentres el que buscas:

Código Delphi [-]
var
  i:Integer;
  n:TTreeNode;
begin
  // Recorrer los nodos del árbol
  for i:=0 to (TreeView1.Items.Count - 1) do begin
    // Lo ha encontrado?
    if (TreeView1.items[i].Text = 'NomdeDeMiNodo') then begin
      n := TreeView1.items[i];
      // Expandir
      n.Expand(True);
      // Seleccionar
      n.Selected := True;
      // Pasar el foco al tree
      TreeView1.RowSelect := True;
      TreeView1.SetFocus;
    end;
  end;
 
  // MEJORA: Cambia el FOR por un WHILE y utiliza un flag booleano para que deje de buscar cuando ya haya encontrado el nodo (aquí recorre siempre el árbol completo).

Con Selected := True puedes seleccionar el nodo (contesta eso a la otra pregunta que has hecho en éste foro, pero en otro hilo ;) ).


La franja horaria es GMT +2. Ahora son las 01:01:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi