100分给的屈啊其实完全可以这样做。
先使用GetFirstChild方法判断一个节点是否有子节点,如果有的话,可以在一个
循环内使用GetNextSibling方法查找下一个同级别的节点,直到GetNextSibling
返回nil为止,如果是子节点套子节点的话,还可以使用递归来实现。
其实这种问题只需好好看一下Delphi的帮助文件即可,如果你的E文不太好的话,
那么可以去卖一本清华出的《Delphi4.0/5.0类参考详解》那上面对VCL类的对象
方法和属性介绍的十分的详细,是一本很好的类库参考书。