自己编写树(Tree)的封装类
在VCL中包含有一个TList类，几乎可以实现链表所有功能，Delphi的工程师真是伟大。但是在实际应用中需要TTree类，来实现树的功能，我写了两个类TyuTree，TYuNode。可以方便实现，树创建，结点增删、移动功能。请大家指教。代码实例：Procedure Test();Var YuTree: TyuTree;Node: TYuNode;Begin //第1步：创建树、增加第一个结点0YuTree := TYuTree.Create;Node := YuTree.Add(nil);//nil,表示增加根结点Node.Data := Pointer(0); //第2步：在结点0下增加子结点1Node := YuTree.AddChild(Node);Node指向结点0Node.Data := Pointer(1); //第3步：在结点1下增加子结点2Node := YuTree.AddChild(Node);Node.Data := Pointer(2); //第4步：切换到结点2的父结点1Node := Node.GetParent; //第5步：在结点1下增加子结点3，并作为第1个子结点Node := YuTree.AddCh...[ 查看全文 ]
