专注于互联网--专注于架构

树形列表:递归加载树形列表的过程

//采用递归方法，D7编译调试通过。 //数据采用ADOQuery读取，并将数据暂存在一个动态数组中，树形列表控件为TreeView。 procedure TForm1.LoadTreeInfo; type TInfo = record ID, //代码 Name, //名称 SuperID //上级代码 : string; //附加字段随需添加 end; var sql: string; i, nCount: Integer; arrInfo: array of TInfo; NewNode: TTreeNode; //加载一个节点 procedure [阅读全文] [PDF]