定義變量
節點:TTreeNode
str:字符串；
開始
node:= aItem；
什麽時候？節點& lt& gt零？做什麽？開始
如果？s=“”？然後呢？str:=節點。文字？不然呢？str:= s+' \ '+節點。文本；
表單1。列表框1。items . Add(str)；
如果？節點。有孩子嗎？然後呢？aa(str，node . get first child)；
node:= node . get next sibling；
結束；
結束；
程序？TForm1。Button1Click(發件人:？to object)；
開始
aa(')，TreeView1。items . GetFirstNode)；
結束；
在德爾福？Xe5通過測試，以下是圖片效果: