ZT:通过数据表动态建Treeview，绝对高效率！

/*

1。数据库表的结构：
   （
       节点ID
       节点父ID(PID)
       及其他字段
    ）
   ID,PID的类型无所谓，数字，字符都行，也不需要有规律，
  只要保证ID字段为主键即可，比如可以用GUID 来作ID。
  支持无限级。

2。TTreeNode的Data指向一个结构，结构内有一个域记录节点的ID及PID，
      其他的域根据需要可自己定义。

3。从数据库生成树，这是要好好考虑的，要作到效率高，最重要的是“避免反复查询
     数据库或遍历数据集”，最好是查询一次就能生成整棵树。
    
     主要思想是：先生成一棵全是根节点的树，再做调整，这样就避免了先读出子节点，
     找不到父节点的尴尬。
*/

struct NODEDATA  //节点关联的数据
{
  int         id;
  int         pid;
  AnsiString  name;
  AnsiString  memo; //其他域省略...
};

void __fastcall FillTree()
{
  struct NODEDATA *ndata=NULL;
  TStringList     *ss=NULL;

  TTreeNode   *aNode=NULL;
  TTreeNode   *bNode=NULL;
  TTreeNode   *pNode=NULL;

  Query1->Close();
  Query1->SQL->Text="select id,pid,name,memo from tree_tab";
  Query1->SQL->Open();

  try
  {
    ss=new TStringList();
    TreeView->Items->BeginUpdate();//禁止刷新，提高速度
    //遍历记录集
    for(Query1->First(); !Query1->Eof; Query1->Next())
    {
      ndata=new DODEDATA();
      ndata->id   = Query1->FieldByName("id")->AsInteger;
      ndata->pid  = Query1->FieldByName("id")->AsInteger;
      ndata->name = Query1->FieldByName("name")->AsString;
      ndata->memo = Query1->FieldByName("memo")->AsString;
      //生成一个根节点加入TreeView
      aNode=TreeView1->Items->AddObject(NULL,ndata->name,ndata);
      //记录id-TreeNode对应关系,便于下面查找
      ss->AddObject(AnsiString(ndata->id),aNode);
    }
    Query1->Close();
    ndata=NULL;
    
   //下面是关键！！
 
   //调整树，根据节点的pid，把节点移到相应的TreeNode下
    int idx;
    for(aNode=TreeView1->Items->GetFirstNode(); aNode!=NULL ;)
    {
      ndata = (NODEDATA*)(aNode->Data);
      if(-1==(idx=ss->IndexOf(AnsiString(ndata->pid))))
      {
        aNode=aNode->getNextSibling();
        continue;
      }
      else
      {
        pNode = (TTreeNode*)(ss->Objects[idx]);
        bNode=aNode;
        aNode=aNode->getNextSibling();
        bNode->MoveTo(pNode,naAddChild);
      } 
    }
  }
  __finally
  {
    delete ss; ss=NULL;
    Query1->Close();
    TreeView->Items->EndUpdate();
  }
}