标题：优化——使用“二分法”快速建立数据树
内容：
父子节点的数据量上万，花了一个晚上的时间对建树的算法做了优化。
比用循环查找父节点来建树的速度快多了。 ^_^
谨记之。
备注：对数据表中父子节点的数据如下形式的可以使用本算法。
DID PID FLMC
1 0 A
2 0 B
3 0 C
4 1 A1
5 1 A2
6 2 B1
7 2 B2
8 3 C1
9 3 C1
10 4 A11
11 4 A12
{====================================================================
功 能: 定义结构体，用来保存所有非叶子节点的DID和节点的唯一句柄。
节点的句柄用来查找节点。
Treeview.Items.GetNode(Handle)可以得到该节点。
备 注: HTreeItem的定义需要Uses Commctrl。
日 期: 2006/01/16 by JRQ
=====================================================================}
Uses Commctrl;
type
PTree_Node=^TTree_Node;
TTree_Node=record
DID : Integer; //非叶子节点的DID
Handle : HTreeItem; //非叶子节点的句柄
end;
var MyNode: PTree_Node; //自定以结构
{====================================================================
功 能: 使用“二分法”创建父子节点树。
通过TList保存数据表中所有的非叶子节点的序号和句柄。
然后遍历数据表中的数据一次即可生成树。
遍历数据时，需要确定此数据的父节点，此时使用二分法在TList中查找。
使用两分法搜索节点，比循环搜索父节点速度快，这是提高效率的基础。
当树的深度和广度的数值都较大时，其优越性尤为明显。
备 注: 2006/01/16 by JRQ
=====================================================================}
procedure BuildFLBTree(aTreeview: TTreeview; //对象树
Root:TTreeNode; //顶级根节点
aQuery:TADOQuery); //查询数据集
//GetDIDIndex为二分查找实现函数
function GetDIDIndex(aList:TList; nStart,nEnd:Integer; aDID:Integer):Integer;
var i:integer;
StartNode,EndNode:PTree_Node;
begin
Result:=-1;
if nEnd<nStart then
Exit;
StartNode:= aList.Items[nStart]; //起始
EndNode:= aList.Items[nEnd]; //末尾
if (nEnd=nStart) then
begin
if EndNode.DID =aDID then
Result:=nEnd; //返回非叶子节点的Index
Exit;
end;
if (aDID < StartNode.DID) or (aDID > EndNode.DID) then
Exit;
i:=((nStart+nEnd) shr 1); //右移动一位，相当于除以2
MyNode:= aList.Items[i];
if aDID = MyNode.DID then
Result:=i //找到非叶子节点的Index
else
if aDID > MyNode.DID then
Result:=GetDIDIndex(aList,i+1,nEnd,aDID)
else
if aDID < MyNode.DID then
Result:=GetDIDIndex(aList,nStart,i,aDID);
end;
var
i,PIDCount,aDID,aPID:Integer;
sName:String;
aNode:TTreeNode; //树节点
aList:TList;
begin
aList:=TList.Create;
try
with aQuery do
begin
Close;
SQL.Clear;
//检索非叶子节点的DID，这些DID都保存在PID中（除0以外的PID中保存的是全部非叶子节点的DID）
SQL.Add('Select PID From CLASSIFY Where PID<>''0'' Group By PID Order By PID ');
Open;
First;
//取出所有非叶子节点的DID，然后保存在List中，因为这些节点可能会重复使用。
//PID为0的节点是顶层节点。除0以外的PID中保存的是全部非叶子节点的DID。
while Not(Eof) do
begin
aPID:=FieldbyName('PID').AsInteger;
New(MyNode); //生成一个节点的记录
MyNode.DID:=aPID;
MyNode.Handle:=nil; //初试化 Handle 值为空
aList.Add(MyNode);
Next;
end; //while Not(Eof) do
PIDCount:=aList.Count; //保存TList中所有非叶子节点的个数
Close;
SQL.Clear;
//查询数据表中所有的父子节点记录，以PID和DID排序，这点非常重要。
//以PID和DID排序，这样能保证所有在树上的父节点都比子节点早建立。
SQL.Add('Select DID,PID,FLMC From D_CLASSIFY Order By PID,DID ');
Open;
First;
while Not(Eof) do //遍历一次查询结果，找到每个节点的根节点，然后构建父子节点树。
begin
aDID:=FieldbyName('DID').AsInteger;
aPID:=FieldbyName('PID').AsInteger;
sName:=Trim(FieldbyName('FLMC').AsString);
if (aPID=0) then //处理第一层根节点，第一层根节点其PID为0。
begin
aNode:=aTreeview.Items.AddChild(Root,sName); //添加节点
aNode.ImageIndex:= 0; //添加图标
aNode.SelectedIndex:= 1;
i:=GetDIDIndex(aList,0,PIDCount-1,aDID); //找到根节点，为其 Handle 赋值
if i>=0 then
Ptree_Node(aList.Items[i]).Handle:= aNode.ItemId; //为List中找到的节点的Handle赋值
end
else
begin //处理非第一层的节点
i:=GetDIDIndex(aList,0,PIDCount-1,aPID); //找到根节点的位置
//通过Handle在目录树上找到根节点
aNode:=aTreeview.Items.GetNode(Ptree_Node(aList.Items[i]).Handle);
if aNode<>nil then
begin
aNode:=aTreeview.Items.AddChild(aNode,sName); //将本节点添加到找到的根节点上
aNode.ImageIndex:= 0; //添加图标
aNode.SelectedIndex:= 1;
end;
i:=GetDIDIndex(aList,0,PIDCount-1,aDID); //在List中找本节点，判断本节点是否存在List中。
if i>=0 then //如果本节点在List中存在，则本节点还有下级节点。
//为List中找到的节点的 Handle赋值
PTree_Node(aList.Items[i]).Handle:= aNode.ItemId;
end;
Next;
end; //while Not(Eof) do
end;//with aQuery do
finally
//释放节点
for i:=0 to alist.Count-1 do
begin
MyNode:=alist.Items[i];
if MyNode<>nil then
Dispose(MyNode); //释放
end;
FreeAndNil(aList);//释放
end;
end;
－完－
By JRQ
2006/02/20 于穗