怎样建立一棵任意树?(100分)

  • 主题发起人 主题发起人 迷惘的人
  • 开始时间 开始时间

迷惘的人

Unregistered / Unconfirmed
GUEST, unregistred user!
即广度和深度没有限制
 
type
TTree = ^TNode;
TNode = record
Value: variant;
Children: array of TTree
end;
 
能不能纯指针构造?
 
这个简单,你参照磁盘文件管理的方式,想一下:)
 
type
TTree = ^TNode;
PList = ^TList;
TList = record
Value: TTree;
Next: PList
end;
TNode = record
Value: variant;
Children: TList
end;
 
先买(或偷)树苗,再挖坑,然后将树种在里面,最后浇水(洒尿亦可)!
^-^
凑个热闹!
 
多人接受答案了。
 
后退
顶部