Q
qianwt
Unregistered / Unconfirmed
GUEST, unregistred user!
to jsxjd
>>>>这样的库结构对构造树是非常有利的，一次扫描就可以了。PIII550近一万条记录不到9秒。
粗率看一下你下面的代码发现可以优化一下，不知道对不对
你增加节点的时候，找父节点不需要从第一个节点开始向后找，
你可以把上一个增加的节点保存到一个临时变量中，看它是不是当前要增加节点的父节点，
若不是，在看它的父节点能不能做当前要当前要增加节点的父节点，若不是在继续....
直到找到或者已经到顶了，写一个递归就可以了，查找父节点的函数如下：
function Tfrm_zzqk.[red]SearchParentNode[/red](StartNode: TTreeNode;
bh: string): TTreeNode;
begin
Result := nil;
if Assigned(StartNode) then
begin
if Copy(bh, 1, length(PNodeData(StartNode.Data)^.bh)) = PNodeData(StartNode.Data)^.bh then
Result := StartNode
else
Result := [red]SearchParentNode[/red](StartNode.Parent, bh);
end;
end;
>>>>这样的库结构对构造树是非常有利的，一次扫描就可以了。PIII550近一万条记录不到9秒。
粗率看一下你下面的代码发现可以优化一下，不知道对不对
你增加节点的时候，找父节点不需要从第一个节点开始向后找，
你可以把上一个增加的节点保存到一个临时变量中，看它是不是当前要增加节点的父节点，
若不是，在看它的父节点能不能做当前要当前要增加节点的父节点，若不是在继续....
直到找到或者已经到顶了，写一个递归就可以了，查找父节点的函数如下：
function Tfrm_zzqk.[red]SearchParentNode[/red](StartNode: TTreeNode;
bh: string): TTreeNode;
begin
Result := nil;
if Assigned(StartNode) then
begin
if Copy(bh, 1, length(PNodeData(StartNode.Data)^.bh)) = PNodeData(StartNode.Data)^.bh then
Result := StartNode
else
Result := [red]SearchParentNode[/red](StartNode.Parent, bh);
end;
end;
]