自己编写树(Tree)的封装类--打印文章

自己编写树(Tree)的封装类

作者：武汉SEO闵涛文章来源：敏韬网点击数4966 更新时间：2009/4/23 18:34:19 文章录入：mintao 责任编辑：mintao

//t第9步：切换到结点5的下一个兄弟结点3

Node := Node.GetNextBrother;

//第10步：在结点3下插入一个兄弟结点6

Node := YuTree.Add(Node);

Node.Data := Pointer(6 );

//第11步：删除结点6

Node.Delete; //或YuTree.Delete(Node);

//其它用法

//结点2.GetNextBrother() = 结点4 返回该结点的下一个兄弟

//结点2.GetPrevBrother() = 结点3 返回该结点的上一个兄弟

//结点1.GetFirstChild() = 结点5; 　返回该结点的第一个子结点

//结点1.GetLastChild() = 结点4　返回该结点的最后一个子结点

//结点1.GetNext = 结点5

//结点1.GetPrev = 结点0

//结点2.GetFirstBrother() = 结点5 返回该结点的第一个兄弟

//结点2.GetLastBrother() = 结点4 返回该结点最后一个兄弟

//YuTree.FirstNode = 结点0

//YuTree.Clear(); 清空所有结点

End;

说明：该在程序中是以二叉树来表示的，FDownLeft，FDownRight分别表示二叉树的左指针、右指针。

原代码如下：

//――――――开始―――――――――――――――――――――――――――－

unit uYuTree;

interface

type

TYuNodeAttachMode = (ynaAdd, ynaAddFirst, ynaAddChild, ynaAddChildFirst, ynaInsert);

TYuTree = class;