数据集+树的一种最简单高效的算法

最新推荐文章于 2024-08-21 14:30:53 发布

weixin_33695450

最新推荐文章于 2024-08-21 14:30:53 发布

阅读量256

点赞数

此法可用于设计功能模块树，用户权限树，类别树以及一切需要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 = nil then Exit;
if Tree = nil then Exit;
if table = '' then Exit;
pNodes[0] := nil;
Tree.Items.Clear;
with DataSet do
begin
    Close;
    SQL.Clear;
    s := Format('select %s, %s from %s order by %s', [aid, aname, table, aid]);
    SQL.Text := s;
    Open;
    if IsEmpty then Exit;
    First;
    while not Eof do
    begin
      lpID := FieldByName(aid).AsString;
      lpName := FieldByName(aname).AsString;
      nLevel := Length(lpID) div ID_DEPT;
      if not idname then
        pNodes[nLevel] := Tree.Items.AddChild(pNodes[nLevel - 1], lpName)
      else
        pNodes[nLevel] := Tree.Items.AddChild(pNodes[nLevel - 1],
          lpID + '-' + lpName);
      Next;
    end;
end;
end;