TreeView 生成树的算法(50分)

sun100 · 2008-05-04

表SPLBB有4个字段 lbbm(编码) lbmc(名称) fjd(父结点)  cs(层数) X超市     00000000      null       0 AA        01000000      X超市      1 AAC       01010000      AA         2 AD        01010100      AAC        3 BB        02000000      X超市      1 BBC       02010000      BB         2  close;  sql.Clear;  sql.Add('select * from splbb  order by cs');  prepared;  open;  first;  if  FieldValues['splbmc']<>null then              TreeView1.Items.AddFirst(nil,FieldValues['splbmc']); //添加  X超市  next;  while not eof do    begin       for i:=0 to  TreeView1.Items.Count-1 do          if  TreeView1.Items.Text=FieldValues['fjd'] then              //这里要是不判断第4层的就好了，怎么写呢            begin              TreeView1.Items.AddChild(TreeView1.Items,FieldValues['splbmc']);              break;            end;       next;    end; 当第4层  有1000个结点的时候  要运行40左右，太慢了， 大家有没有更好的算法

sun100 · 2008-05-04

当第4层  有1000个结点的时候  要运行40秒左右，太慢了， 大家有没有更好的算法

sunboy_del · 2008-05-04

自己做树啊？为什么不用dxdbtreeview

wszysystem · 2008-05-04

下面来个抛砖引玉 如果对于删除则必须配合数据库存储过程才行 procedure TB003F.ShowTreeView; var   i:integer; begin   i:=0;   TreeView.Items.Clear;   Node:=TreeView.Items.AddChildFirst(nil,'所有分类');   Node.StateIndex:=0;   Node.SelectedIndex:=0;   Node.ImageIndex:=0;   //建立各客户的子分类树   with QB001 do   begin     Close;     SQL.Clear;     SQL.Add('select * From B002 order by B002_2,B002_3,B002_1');     Open;     First;     while not eof do     begin       //showmessage(FieldByName('B002_4').AsString);       if FieldByName('B002_2').AsInteger=1 then//如果级别是1则直接建立节点       begin         SubNode:=TreeView.Items.AddChildObject(Node,FieldByName('B002_4').AsString,nil);       end       else       begin //如果级别不是1则先找到其父亲，让其父亲生下它         while i<TreeView.Items.Count do//找父亲         begin           if TreeView.Items.StateIndex=FieldByName('B002_3').AsInteger then             break           else             i:=i+1;         end;         Node:=Treeview.Items;//找到的父亲         SubNode:=TreeView.Items.AddChildObject(Node,FieldByName('B002_4').AsString,nil);//生儿子       end;       SubNode.StateIndex:=FieldByName('B002_1').AsInteger;       SubNode.ImageIndex:=FieldByName('B002_2').AsInteger;       SubNode.SelectedIndex:=0;       Next;     end;   end end;

lasmai · 2008-05-05

你的代码跟资料结构有些对不上哦 我的方法是用内存换速度，我没有那么多测试资料，你自己试一下看速度是否有改善 //用于保存父节点的类   TDBNodes = class   private     FNodes: TList;     FNames: TStringList;  //也可以直接用Node.text   public     constructor Create;     destructor Destroy; override;     procedure AddNode(ANode: TTreeNode; AName: String);     function GetNodeByName(AName: String): TTreeNode;   end; { TNode } procedure TDBNodes.AddNode(ANode: TTreeNode; AName: String); begin   FNodes.Add(ANode);   FNames.Add(AName); end; constructor TDBNodes.Create; begin   FNodes := TList.Create;   FNames := TStringList.Create; end; destructor TDBNodes.Destroy; begin   FNodes.Free;   FNames.Free;   inherited; end; function TDBNodes.GetNodeByName(AName: String): TTreeNode; var   Index: Integer; begin   Result := nil;   if FNames.Find(AName, Index) then     Result := TTreeNode(FNodes[Index]); end; 生成树的代码 var   i: Integer;   ADBNodes: TDBNodes;   ANode: TTreeNode; begin   ADBNodes := TDBNodes.Create;   try     with qry1 do     begin       close;       sql.Clear;       sql.Add('select * from splbb  order by cs');       prepared;       open;       first;       if  FieldValues['fjd']<>null then       begin         ANode := TreeView1.Items.AddFirst(nil,FieldValues['lbmc']); //添加  根         ADBNodes.AddNode(ANode, ANode.Text);       end       else         raise Exception.Create('没有找到根节点');       next;       while not eof do       begin         ANode := ADBNodes.GetNodeByName(FieldValues['fjd']);         if ANode <> nil then           ANode := TreeView1.Items.AddChild(ANode, FieldValues['lbmc'])         else           raise Exception.Create('尽然没找到父节点');         if FieldValues['cs'] < 4 then           ADBNodes.AddNode(ANode, ANode.Text);       end;     end;   finally     ADBNodes.Free;   end;

DIGUA · 2008-05-06

展开哪个加哪个 不必要一次性生成整个树啊 照楼主的用法 每次更新下还不把人等急死啊 呵呵

7512 · 2008-05-06

我做上万节点的树就是逐层展开的，同意楼上观点，有下级节点的就加个虚节点，点开的时候出发展开过程增加下级就可以了

hcm0790 · 2008-05-06

以我的经验，注意以下两点，会快很多： 1.先将Treeview设为不可见，生成完后再显示； 2.数据放在ClientDataset中.

TreeView 生成树的算法(50分)

sun100

Unregistered / Unconfirmed

sun100

Unregistered / Unconfirmed

sunboy_del

Unregistered / Unconfirmed

wszysystem

Unregistered / Unconfirmed

lasmai

Unregistered / Unconfirmed

DIGUA

Unregistered / Unconfirmed

7512

Unregistered / Unconfirmed

hcm0790

Unregistered / Unconfirmed

Similar threads

TreeView 生成树的 算法(50分)

sun100

Unregistered / Unconfirmed

sun100

Unregistered / Unconfirmed

sunboy_del

Unregistered / Unconfirmed

wszysystem

Unregistered / Unconfirmed

lasmai

Unregistered / Unconfirmed

DIGUA

Unregistered / Unconfirmed

7512

Unregistered / Unconfirmed

hcm0790

Unregistered / Unconfirmed

Similar threads

TreeView 生成树的算法(50分)