Delphi非可视化TTree实现

Question

我正在寻找一种非可视持久树(TStringTree)实现。如果有人知道它有什么好的实现，请告诉我。

谢谢。

Answer 1

您将在DI Containers中找到灵活的、非可视化的树结构。图书馆(商业)。然而，正如其他人上面所指出的，开发自己的功能确实非常容易，只需添加您需要的功能即可。

您只需使用两个基础对象即可:TNode 和 TNodeList(例如 TObjectList 后代)。至少，TNode 只需要三个成员:字符串数据、对其父节点的引用(如果该节点是根节点，则为 nil)以及 TNodeList(它是其子节点的列表)。剩下的是各种伴随方法的(有点乏味)实现，例如 Add()、Delete()、IndexOf()、MoveTo()、GetFirstChild()、GetNext() 等。基本树应该小于一棵-夜晚。