在vcl中包含有一个tlist类,几乎可以实现<链表>所有功能,delphi的工程师真是伟大。但是在实际应用中需要ttree类,来实现<树>的功能,我写了两个类tyutree,tyunode。可以方便实现,树创建,结点增删、移动功能。请大家指教。
代码实例:
procedure test();
var
yutree: tyutree;
node: tyunode;
//第1步:创建树、增加第一个结点0
在vcl中包含有一个tlist类,几乎可以实现<链表>所有功能,delphi的工程师真是伟大。但是在实际应用中需要ttree类,来实现<树>的功能,我写了两个类tyutree,tyunode。可以方便实现,树创建,结点增删、移动功能。请大家指教。
代码实例:
procedure test();
var
yutree: tyutree;
node: tyunode;
//第1步:创建树、增加第一个结点0