trabajando con TreeView

[Ledian_Fdez]

Holas amigos:

Estoy desarroyando una aplicación donde utilizo un TreeView, el cual va ha llegar a tener 2 niveles. Y quiero guardar en variables por separada segun lo seleccionado el valor de su padre e hijo.

Les explico mejor:

Mi árbol va a contener Áreas y Oficinas. Y quiero guardar en variables el valor de la oficina y el valor del area.

Código Delphi [-]
if(Node.HasChildren) then
    Area := Node.Text;
if(not Node.HasChildren) then
    Oficina := Node.Text;

Pero que sucede que solo se uno de los dos, por ejemplo cuando me selecionen una Oficina no se a que Área pertenece.

Como sabre según el hijo el padre???

Salu2,
Ledian.

[cloayza]

Podria ser asi...

Código Delphi [-]
if(Node.HasChildren) then
    Area := Node.Text;
if(not Node.HasChildren) then
begin
    Area := Node.Parent.Text;
    Oficina := Node.Text;

Saludos

[Ledian_Fdez]

Muchas gracias.

Salu2,
Ledian.

[Ledian_Fdez]

cloayza:
Me da error en caso de que en el Area no exista aun Oficinas.

Error 'Access violation at address 004CEC36 in module ..'

[cloayza]

Prueba esto...

Código Delphi [-]
if(Node.HasChildren) then
    Area := Node.Text;
if(not Node.HasChildren) then
begin
       If (Node.Parent<>NIL) Then
              Area := Node.Parent.Text;

        Oficina := Node.Text;

Saludos

[Ledian_Fdez]

Ahora sip .. eres una belleza .. mua mua ...

[[maeyanes]]

Hola...

Solo simplificando un poco el código:

Código Delphi [-]
if Node.HasChildren then
  Area := Node.Text
else
begin
  if Assigned(Node.Parent) then
    Area := Node.Parent.Text;
  Oficina := Node.Text
end

Saludos...