TTreeNode, que estoy haciendo mal

[setq]

Anoche estaba un poco denso de tanto rumiar el fallo, a ver si consigo resumir lo que quiero, es fácil:
Lo que necesito es cargar un árbol de nodos desde disco sin necesidad de que se muestre en pantalla. Y no conozco en Delphi una clase que me de esa funcionalidad sin tener que meter un componente en el Form. He tenido que usar el TTreeView porque es donde único dispongo del método LoadFromFile.
Mi clase no necesita mostrar el árbol en ningun componente, es una clase solo para procesar informacion de cualquier árbol que se le pase en el constructor mediante un TTreeNodes.

En cuanto al error que me daba, creo que estaba en el constructor:

Estaba haciendo esto:
N:=TTreeNode.Create(TNs);

Y he cambiado a esto:
N:=TNs.GetFirstNode;

Ahora ya me funciona. Lo ves correcto?.

En el caso A, N apunta al primer nodo del arbol TNs? o a donde? Digo 'apunta' porque pienso en punteros, al hablar de clases es correcto?. Estoy javaintoxicado.

En el caso B, N apunta al primer nodo del arbol TNs y cualquier modificacion de N afectaria a TNs?. Y en el destructor ya no debo llamar al Free creo?.


En tú código no entiendo esta parte en el constructor de TMiTreeNode:

   FNodes := TTreeNodes.Create(nil);   FNodes := TNd

Primero creas el TTreeNodes y luego los reasignas?.

Y porqué usas properties pudiendo acceder a las variables declaradas public para ello. Se que son como los getters y setters de java pero en este caso no veo la necesidad,.. o si?


Gracias, saludos.

[ecfisa]

Hola.

Primero creas el TTreeNodes y luego los reasignas?.

Si, en realidad podría haber enviado directamente el TreeView como argumento al constructor...

Código Delphi [-]
constructor TMiTreeNodes.Create(TNd: TTreeView);
begin
  FNodes := TTreeNodes.Create(TNd);
end;

Y porqué usas properties pudiendo acceder a las variables declaradas public para ello. Se que son como los getters y setters de java pero en este caso no veo la necesidad,.. o si?

El uso de propiedades, si bién no es estríctamente necesario (se puede acceder a variables públicas de la clase o incluso globales), siempre es una buena práctica, ya que brinda mayor control y encapsulamiento.

Un saludo.

Edito: Me quedé pensando en lo que mencionas: "Lo que necesito es cargar un árbol de nodos desde disco sin necesidad de que se muestre en pantalla."

¿ Y no te resultaría más fácil usar un TTreeView con su propiedad Visible = False ? Lo anterior quedaría reducido a:

Código Delphi [-]
function GetThisNode(FNodes: TTreeNodes; Norma: string): TTreeNode;
var
  N: TTreeNode;
begin
  N:= FNodes.GetFirstNode;
  while Assigned(N) and(N.Text <> Norma) do
    N := N.getNextSibling;
  Result:= N;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TTreeNode;
begin
  TreeView1.LoadFromFile('C:\ARCHIVO.TXT');
  t:= GetThisNode(TreeView1.Items, 'UN_NODO');
  if Assigned(t) then
   ...
end;

[setq]

Es que no quiero usar un componente visual para manejar el arbol, me gustaria poder hacerlo por codigo solamente, es decir, sin tener que coger un componente de la paleta y pincharlo en el TForm, me explico?. Y ponerle la propiedad visible=false seria un apaño. No me gusta esa solución. De todas formas ya lo tengo solucionado usando TTreeNodes y la cosa va bien.

Pero me ha quedado una espina con el constructor que no entiendo:

Estaba haciendo esto: N:=TTreeNode.Create(TNs); //N.GetFirstNode devuelve un valor basura

Y he cambiado a esto: N:=TNs.GetFirstNode;
//N.GetFirstNode devuelve un valor correcto



En el primer caso N queda apuntando al primer nodo de TNs, o que es lo que pasa ahi para que no me de
valores correctos del TNs que le he pasado?.

Gracias por tu tiempo de nuevo.

[ecfisa]

Hola setq.

No tenés nada que agradecer.
Estoy un poco confundido, quizá por que no entiendo bién la lógica que deseas aplicar. Pero a ver, según entiendo en tu código, en el caso de N:=TTreeNode.Create(TNs), estas creando el objeto pero no lo inicializas en ningún momento, por eso el valor basura. Revisá este enlace donde se trata la función del parámetro Owner en la creación.

Hay algo que todavía no me queda muy claro:

Es que no quiero usar un componente visual para manejar el arbol

Pero aquí lo estas usando:

Código Delphi [-]
type
  TSDIAppForm = class(TForm)

     treeNormas: TTreeView;
     ...
     procedure CargarTree;
     ...
     private
        FRL:B;
  end;

Es que me parece, que si deseas usar el método LoadFromFiles de TTreeView, en algún momento vas a tener que usar un TreeView y este tiene que tener un parent ...

Saludos.

[setq]

Si, es cierto que lo estoy usando, pero como dije, es la unica forma que he visto de disponer de un metodo LoadFromFile que me cargue un arbol desde disco.

Busco algo como el TTreeNode que tenga un metodo LoadFromFile y cree un arbol (en memoria) desde disco devolviendo su root, asi no tendria que colocar TTreeViews innecesarios en formularios.

La logica que intento aplicar es la de mantener separados la logica de negocio de las vistas, y un TTreeView para mi es una Vista de algo que hay debajo (el TTreeNodes y los TTreeNode). Si pudiera manejar esos TTreeNodes sin tener que crear el TTreeView seria estupendo, pero el constructor del TTreeNode me pide un owner TTreeNodes y este a su vez me pide un TTreeView, con lo cual no salgo del circulo.

Gracias siempre.