Delphi实现树型结构

生成树型结构有2种方法：

1.动态生成树结点

2.静态生成树结点

这里暂不讨论动态生成树，先实现静态生成！

所谓静态生成树结点是指通过遍历数据源的方式一次性把所有树结点全部加载，说起生成树避免不了谈起数据库结构的设计。

数据库设计的方法有2种：

1.单编号法

单编号法是以每个类为统一编号，如其有子类，则顺着该编号向后排。如水果编号为001，则苹果为水果的一类，则应为001001等等，这种方法易于统计，但不易于维护！如：想要将苹果类变为其它的类，且苹果类下有N层，那会是一件比较麻烦的事情！

2.双编号法

双编号也就是我们经常说的用ID与PARENTID来表示其父子关系，维护起来比较方便，但遍历会稍稍复杂一些！

无论哪种方法，一般情况下都要创建结构体，并把结构体指针放置到树结点中！因为Treeview的树结点不可能放

置更多的信息，我们通常要存该结点的名称(中英文)、结点ID、是否为功能结点、父结点、图标、选中结点后的图标、dll的名称等等等...

以下例子：

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB; type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : Integer; ParentID : Integer; NodeType : Integer; ChnNodeTitle : String; ImageIndex: SmallInt; SelectedIndex: SmallInt; end;