2010年7月30日
数据集+树的一种最简单高效的算法
摘要： 此法可用于设计功能模块树，用户权限树，类别树以及一切需要TREE来表示之层级关系的。。。此法只需要遍历一次数据集即生成了整棵树。读取数据生成树的算法：procedure CreateTree(DataSet: TADOQuery; Tree: TTreeView; const table, aid, aname: string; idname: Boolean);const ID_DEPT = 2;var nLevel: Integer; pNodes: array[0..1023] of TTreeNode; lpID, lpName, s: string;begin if DataSet 阅读全文
posted @ 2010-07-30 23:16 delphi中间件 阅读(431) 评论(0) 推荐(0)