獲取TTreeNode的文本，可以直接訪問？文本屬性。
示例代碼如下:
程序？TForm1.btn1Click(發送方:？to object)；
var？CurItem:？TTreeNode
開始
CurItem？:=?tv1。被選中；
如果？CurItem？& lt& gt？零？然後
開始
如果？CurItem。父& lt& gt零？然後
ShowMessage('當前選擇了子節點，內容:'？+?CurItem。正文)
其他
ShowMessage('當前選擇了父節點，內容:'？+?CurItem。正文)
結束；
結束；代碼運行的屏幕截圖: