Vista de árbol de Delphi que atraviesa todos los nodos

Definir variables

Nodo: TTreeNode

str: string;

Inicio

nodo:= aItem;

¿Cuándo? nodo<>zero? ¿Hacer lo? Inicio

¿Y si? s=""? ¿Entonces qué? cadena:=nodo. ¿Palabra? ¿De lo contrario? str:= s+' \ '+nodo. Texto;

Formulario1. Cuadro de lista 1. elementos . Agregar(str);

¿Si? nodo. ¿Tienes hijos? ¿Entonces qué? aa(str, nodo. obtener el primer hijo);

nodo:= nodo. obtener el siguiente hermano

Fin

Fin; p>Programa? TForm1. Button1Click(remitente:? al objeto);

Inicio

aa('), TreeView1. items . GetFirstNode);

Fin;

¿En Delphi? Xe5 pasó la prueba, el siguiente es el efecto de imagen: