Basede Dato + TTreeView

[*Caro*]

Hola mjjj, que error te cuando??, sobre lo que te puso felipe88

Código Delphi [-]
 TreeView1.Selected.Text; //Este te muestra el texto del nodo seleccionado
 TreeView1.Selected.Parent.Text; //Este te muestra el texto del padre del nodo seleccionado

Para saber si el nodo padre tiene hijos puedes utilizar HasChildren , que te indica si un nodo tiene hijos.

Un ejemplito, cuando se selecciona uno de los nodos te va obteniendo todos los padres que tiene, sino solo te muestra el nodo que has seleccionado:

Código Delphi [-]
procedure TForm1.ButtonClick(Sender: TObject);
var
  Padre: TTreeNode;
  cadena:String;
begin
  cadena:=TreeView1.Selected.Text;
  Padre := TreeView1.Selected.Parent;
 
  while Padre <> nil do
  begin
    cadena:=Padre.Text+' '+cadena;

    Padre := Padre.Parent;
  end;
  showmessage(cadena);
end;

Ahora me voy.

Saluditos