查找树的节点

coreblood 2004-03-25 05:09:50
{*************************************************************************

查找节点的下一个可以编辑的节点

*************************************************************************}
Function FindNextNode(Node : PVirtualNode;Var VST : TVirtualStringTree) : PVirtualNode;
{*********************************************

找到某一节点下第一个可以编辑的节点

**********************************************}
Procedure FindFirstNode(Node:PVirtualNode;VST:TVirtualStringTree;Var Result : PVirtualNode);
Var
TNode : PVirtualNode;
Data : PNodeData;
begin
If Node = Nil then
Exit;
Data := VST.GetNodeData(Node);
If (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
Result := Node; //>在这里我找到了第一我要的节点为为什么我的函数不 //返回？
Exit;
end;
If Node.ChildCount > 0 then
begin
TNode := Node.NextSibling;
While TNode <> Nil Do
begin
FindFirstNode(TNode,VST,Result);
TNode := TNode.NextSibling;
end;
end else
begin
TNode := Node.NextSibling;
FindFirstNode(TNode,VST,Result);
end;
end;
begin
Result := Nil;
If Node = Node.Parent.LastChild then
FindNextNode(Node.Parent,VST)
else
FindFirstNode(Node.NextSibling,VST,Result);
If Result <> Nil then
Exit;
end;
...全文
79 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
coreblood 2004-03-26
  • 打赏
  • 举报
 回复
OK
谢谢 dulei115() 和 hero_yin(阿鬼)
dulei115 2004-03-26
  • 打赏
  • 举报
 回复
或者不用函数，直接判断Result是否为nil
...
if Node.ChildCount > 0 then
begin
TNode := Node.FirstChild;
while TNode <> Nil do
begin
FindFirstNode(TNode,VST,Result)
if Result <> nil then
exit;
TNode := TNode.NextSibling;
end;
end
else
begin
TNode := Node.NextSibling;
FindFirstNode(TNode,VST,ResultNode);
if Result <> nil then
exit;
end;
coreblood 2004-03-25
  • 打赏
  • 举报
 回复
{*******************************************************************************

查找节点的下一个可以编辑的节点

*******************************************************************************}
Function FindNextNode(Node : PVirtualNode;Var VST : TVirtualStringTree; Var ResultNode:PVirtualNode ):Boolean;
begin
Result := False;
If Node = Node.Parent.LastChild then
FindNextNode(Node.Parent,VST,ResultNode)
else
If FindFirstNode(Node.NextSibling,VST,ResultNode) then
begin
Result := True;
Exit;
end;
end;
{*********************************************

找到某一节点下第一个可以编辑的节点

**********************************************}
Function FindFirstNode(Node:PVirtualNode;VST:TVirtualStringTree; Var ResultNode:PVirtualNode ):Boolean;
Var
TNode : PVirtualNode;
Data : PNodeData;
begin
If Node = Nil then
Exit;
Data := VST.GetNodeData(Node);
If (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
ResultNode := Node;
Result := True;
Exit;
end;
If Node.ChildCount > 0 then
begin
TNode := Node.FirstChild;
While TNode <> Nil Do
begin
If not FindFirstNode(TNode,VST,ResultNode) then
TNode := TNode.NextSibling
else
begin
Result := True;
Exit;
end;
end; //EndWhile
end else
begin
TNode := Node.NextSibling;
If FindFirstNode(TNode,VST,ResultNode) then
Begin
Result := True;
Exit;
end;
end;
end;
coreblood 2004-03-25
  • 打赏
  • 举报
 回复
查找某个节点下面第一个可以编辑的节点已经可以调试通过了，如上
coreblood 2004-03-25
  • 打赏
  • 举报
 回复
{*********************************************

找到某一节点下第一个可以编辑的节点

**********************************************}
Function FindFirstNode(Node:PVirtualNode;VST:TVirtualStringTree; Var ResultNode:PVirtualNode ):Boolean;
Var
TNode : PVirtualNode;
Data : PNodeData;
begin
If Node = Nil then
Exit;
Data := VST.GetNodeData(Node);
If (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
ResultNode := Node;
Result := True;
Exit;
end;
If Node.ChildCount > 0 then
begin
TNode := Node.FirstChild;
While TNode <> Nil Do
begin
If not FindFirstNode(TNode,VST,ResultNode) then
TNode := TNode.NextSibling
else
begin
Result := True;
Exit;
end;
end; //EndWhile
end else
begin
TNode := Node.NextSibling;
If FindFirstNode(TNode,VST,ResultNode) then
Begin
Result := True;
Exit;
end;
end;
end;
hero_yin 2004-03-25
  • 打赏
  • 举报
 回复
Function FindNextNodes(PNode : PVirtualNode;Var VST : TVirtualStringTree) : PVirtualNode;
Var
Node : PVirtualNode;
Data : PNodeData;
begin
Result:= Nil;
IF PNode=Nil THen Exit;
Node := PNode;
Data := VST.GetNodeData(Node);
While (Trim(Data.EditS) <> 'Y')Or(Node=PNode) Do
begin
If Node.FirstChild<>Nil Then
Begin
Node := Node.FirstChild;
Data := VST.GetNodeData(Node);
Continue;
End;

While Node.NextSibling = nil Do
Begin
If Node.Parent=Nil Then
Begin
Node:= Nil;
Break;
End;
Node := Node.Parent;
End;
Node:= Node.NextSibling;
Data := VST.GetNodeData(Node);
If (Data=Nil) Then Exit;
end;
Result:= Node;
end;

我要分！！！！！！！！
dulei115 2004-03-25
  • 打赏
  • 举报
 回复
//大概改了一下，没有调试，基本就是这样了，楼主自己慢慢改吧！
function FindFirstNode(Node: PVirtualNode; VST: TVirtualStringTree; var ResultNode: PVirtualNode): Boolean;
var
TNode: PVirtualNode;
Data: PNodeData;
begin
if Node = Nil then
Exit;
Data := VST.GetNodeData(Node);
if (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
ResultNode := Node;
Result := True;
Exit;
end;
if Node.ChildCount > 0 then
begin
TNode := Node.FirstChild;
while TNode <> Nil do
begin
if not FindFirstNode(TNode,VST,ResultNode) then
TNode := TNode.NextSibling
else
begin
Result := True;
exit;
end;
end;
end
else
begin
TNode := Node.NextSibling;
if FindFirstNode(TNode,VST,ResultNode) then
begin
Result := True;
exit;
end;
end;
Result := False;
end;
dulei115 2004-03-25
  • 打赏
  • 举报
 回复
你应该把过程改为函数，返回值类型为Boolean
If (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
Result := Node;
//这里设置函数的返回值为找到了
Exit;
end;
If Node.ChildCount > 0 then
begin
TNode := Node.FirstChild;
While TNode <> Nil Do
begin
FindFirstNode(TNode,VST,Result);
//这里判断这一个递规调用是否找到，如果找到就exit
TNode := TNode.NextSibling;
end;
end else
begin
TNode := Node.NextSibling;
FindFirstNode(TNode,VST,Result);
//这里判断这一个递规调用是否找到，如果找到就exit
end;
dulei115 2004-03-25
  • 打赏
  • 举报
 回复
If Node.ChildCount > 0 then
begin
TNode := Node.FirstChild; //--> 上面这里有点问题
While TNode <> Nil Do
begin
FindFirstNode(TNode,VST,Result);//问题出在这里
//此时不管这一步找到没有都会执行下面的语句，实际的到的应该是（最后一个根节点上的）（层数最少的节点）
TNode := TNode.NextSibling;
end;
end else
begin
TNode := Node.NextSibling;
FindFirstNode(TNode,VST,Result);
end;
a
|-aa
| |-bb
|- bb
b
|-ad
| |-bb
|bb//如果找bb，找到的应该会是这个
c
cc
//规律：根节点从后往前找，c上没有，b上有，然后看b上的第一层，也是从后往前找，得到结果
coreblood 2004-03-25
  • 打赏
  • 举报
 回复
{*******************************************************************************

查找节点的下一个可以编辑的节点

*******************************************************************************}
Function FindNextNode(Node : PVirtualNode;Var VST : TVirtualStringTree) : PVirtualNode;
{*********************************************

找到某一节点下第一个可以编辑的节点

**********************************************}
Procedure FindFirstNode(Node:PVirtualNode;VST:TVirtualStringTree;Var Result : PVirtualNode);
Var
TNode : PVirtualNode;
Data : PNodeData;
begin
If Node = Nil then
Exit;
Data := VST.GetNodeData(Node);
If (Trim(Data.EditS) = 'Y') and (Node.ChildCount <= 0) then
begin
Result := Node; //----->在这里我找到了第一我要的节点为为什么我的函数不返回？
Exit; //----->我想如果找到合适节点在这里就应该跳出Procedure但是....
end;
If Node.ChildCount > 0 then
begin
TNode := Node.FirstChild; //--> 上面这里有点问题
While TNode <> Nil Do
begin
FindFirstNode(TNode,VST,Result);
TNode := TNode.NextSibling;
end;
end else
begin
TNode := Node.NextSibling;
FindFirstNode(TNode,VST,Result);
end;
end;
begin
Result := Nil;
If Node = Node.Parent.LastChild then
FindNextNode(Node.Parent,VST)
else
FindFirstNode(Node.NextSibling,VST,Result);
If Result <> Nil then
Exit;
end;
Linux内核编程：设备树overlay和ConfigFS文件系统
有了设备树的overlay功能，省去了设备树的重新编译和内核重启，我们可以直接编写一个设备树插件：overlay.dts，编译成overlay.dtbo后，直接给设备树“打补丁”，在运行期间就可以动态添加节点、修改节点... 设备树的...
二叉查找树节点的删除
（3）对于任意节点满足（1）（2）所以二叉查找树节点删除关键在于如何保证不破坏二叉查找树的性质。问题分析二叉查找树删除节点可以分成三种情况： （1）删除叶子节点 叶子节点删除是最简单的情况，由于叶子节点...
LINTCODE——删除二叉查找树的节点
LINTCODE——删除二叉查找树的节点思路： 一、删除的节点无左右节点，直接return NULL； 二、删除的节点只有一个左节点或者右节点，return delNode->left 或者return delNode->right; 三、删除的节点即有左节点也...
Java利用递归实现查找树的节点的所有子节点和所有的终结节点
这是商品管理页面．...也就是说需要寻找分类表里手机通讯下的品牌分类节点. 分类表是树形结构． 本来想用ＭySQL的函数或者存储过程实现．但是感觉操作数据比较麻烦，不好写，当然原因是我不太精通...
证明二叉查找树所有节点的平均深度
设一棵树的左子树的内部路径长为D（i），则右子树的内部路径长为D（N-i-1）（右子树节点个数=N-左子树节点个数-根节点） 综上： D（N）=D（i）+D（N-I-1）+N-1 (在原树内，左子树与右子树所有节点的
Delphi

5,386

社区成员

262,729

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章