VST实例（5）节点（NODE） 二、节点的遍历

二、节点的遍历

每一个节点都有一个index值，用于描述其在相同level，相同父节点下的序号，但是，遍历时并不能利用这个值，因为这个值是变化的，当进行排序，插入节点、删除节点等等操作时，这个index会发生改变。
同样的，vst.AbsoluteIndex(node)返回的是某一节点在VST中的绝对序号，也会在排序等操作时进行改变。
1、通过函数遍历节点

下面这些函数可以找到特定的第一个的节点：

•          function GetFirst(ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetFirstChild(Node: PVirtualNode): PVirtualNode;
  
•          function GetFirstCutCopy(ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetFirstInitialized(ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetFirstNoInit(ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetFirstSelected(ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetFirstVisible(Node: PVirtualNode = nil; ConsiderChildrenAbove: Boolean = True; IncludeFiltered: Boolean = False): PVirtualNode;
  
•          function GetFirstVisibleNoInit(Node: PVirtualNode = nil; ConsiderChildrenAbove: Boolean = True; IncludeFiltered: Boolean = False): PVirtualNode;
  

找下一个节点的函数有：

•          function GetNext(Node: PVirtualNode; ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetNextChecked(Node: PVirtualNode; ConsiderChildrenAbove: Boolean): PVirtualNode;
  
•          function GetNextInitialized(Node: PVirtualNode; ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetNextLeaf(Node: PVirtualNode): PVirtualNode;
  
•          function GetNextLevel(Node: PVirtualNode; NodeLevel: Cardinal): PVirtualNode;
  
•          function GetNextSelected(Node: PVirtualNode; ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetNextSibling(Node: PVirtualNode): PVirtualNode;
  
•          function GetNextVisible(Node: PVirtualNode; ConsiderChildrenAbove: Boolean = True): PVirtualNode;
  
•          GetNextVisible...，其它的针对可见NODE的查找下一个。
  

如果没有指定节点的下一个，则返回nil。
查找最后一个节点：

•          function GetLast(Node: PVirtualNode = nil; ConsiderChildrenAbove: Boolean = False): PVirtualNode;
  
•          function GetLastChild(Node: PVirtualNode): PVirtualNode;
  
•          function GetLastVisible(Node: PVirtualNode = nil; ConsiderChildrenAbove: Boolean = True; IncludeFiltered: Boolean = False): PVirtualNode;
  
•          ……
  

下面的代码可以实现遍历：

1. var node:pvirtualnode;
3. ……
5. begin
7.   node:=vst.getfirst;
9.   repeat
11.      ……
13.      node:=vst.getnext(node);
15.   until node=vst.getlast;
17. end;

复制代码

 
当然，上面的代码中未包含对最后一个节点的处理。
2、遍历函数IterateSubtree

遍历函数的原型是：

1. function IterateSubtree(Node: PVirtualNode; Callback: TVTGetNodeProc; Data: Pointer; Filter: TVirtualNodeStates = []; DoInit: Boolean = False;

复制代码

 
功能是对VST中的Node的每一个子（孙）节点进行一次回调函数（callback）的操作。如果回调函数返回了abord：=true，则终止遍历，并返回终止遍历的节点。
如果参数node=nil，则对所有的节点进行遍历。
data是传入回调函数的指针参数，而Filter是筛选器，如果为空，则对所有的节点进行遍历，否则只对具有筛选器状态的节点进行遍历。例如如果filter包含“vsvisible”，则只对可见的节点进行遍历。
回调函数的格式是：

1. TVTGetNodeProc = procedure (Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean) of object;

复制代码

其中data指的就是IterateSubtree中指向的数据data。
以本程序为例，当编辑框中内容发生改变，则立即查找符合条件的节点，并设置为可见，不符合条件的节点则设置为不可见。
代码如下：

1. procedure TForm2.lbledt1Change(Sender: TObject);
3. var data:pchar;
5. begin
7.    data:=PChar(lbledt1.Text);
9.    //beginupdate之后的语句只有当遇到endupdate之后才进行显示刷新
11.    //可以避免程序的频繁刷新导致的抖动，加快程序的运行。
13.    vst.BeginUpdate;
15.    //调用遍历函数，传入的参数是文本框的文本
17.    vst.IterateSubtree(nil,getnodebystr,data);
19.    //让所有符合条件的节点展开
21.    vst.FullExpand();
23.    vst.EndUpdate;
25. end;

复制代码

 
回调函数getnodebystr的定义和代码如下：

1. procedure GETNODEBYSTR(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
3. ……
5. procedure TForm2.GETNODEBYSTR(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
7. var str1,str2:string;
9. begin
11.   str1:=string(Data).Trim.ToUpper;
13.   with pcodes(Sender.GetNodeData(node))^ do
15.   begin
17.     str2:=icao+'|'+iata+'|'+names;
19.   end;
21.   str2:=str2.Trim.ToUpper;
23.   if str2.Contains(str1) or str1.IsEmpty then
25.   begin
27.     Sender.FullyVisible[NODE]:=true;
29.     //下面部分是设置可见的另一种写法，如果不包含子节点，则效率会更高
31.     //sender.IsVisible[node]:=True;
33.     //if Sender.GetNodeLevel(node)>0 then//有父节点的情况下
35.     //  Sender.IsVisible[Node.Parent]:=True;
37.   end
39.   else
41.   begin
43.     Sender.IsVisible[node]:=false;
45.   end;
47. end;

复制代码

 
本程序共有630个节点，在执行中完全可以实时查询无停顿。VST的效率非常高。
3、节点序列

前面我们提到过vst.SelectedNodes和vst.checkedNodes都是节点序列，节点序列的定义是这样的：

1. TVTVirtualNodeEnumeration = record
3.   objectprivateFMode: TVZVirtualNodeEnumerationMode;
5.   FTree: TBaseVirtualTree;
7.   FConsiderChildrenAbove: Boolean;
9.   FNode: PVirtualNode;
11.   FNodeLevel: Cardinal;
13.   FState: TCheckState;
15.   FIncludeFiltered: Boolean;
17. end;

复制代码

 
并提供了一个函数：GetEnumerator，用于从FTREE中获取具有指定特征的节点，例如checkednodes就是从VST中取得具有某种TCheckState属性的所有节点，而SelectedNodes则是获得具有selected属性的节点（node的states属性），所以你也可以写自己的节点序列程序。
函数GetEnumerator返回的是一个TVTVirtualNodeEnumerator类型的结构（record），其具体使用代码例子如下：

1. var node:PVirtualNode;
3. begin
5.   with vst.CheckedNodes().GetEnumerator do
7.   begin
9.     MoveNext;
11. repeat
13.       node:=Current;
15.       ……
17.     until not MoveNext;
19.   end;
21. end;

复制代码

 
需要注意的是，一定要针对GetEnumerator返回的结构进行操作，不能一次次的调用GetEnumerator.current 和GetEnumerator.movenext，因为每次调用一次GetEnumerator就会生成一次序列。
请注意，调用GetEnumerator后，current并没有对应某个NODE，需要调用一次movenext后，current才指向第一个node，每调用一次movenext，current指向下一个node，如果已经是最后一个node，调用movenext则返回false.
程序中写了一小段代码，用于把选中的机场资料导出到一个CSV文件中。

1. procedure TForm2.N5Click(Sender: TObject);
3. var sl:TStringList;s:string;
5. begin
7.   if vst.CheckedCount=0 then Exit;
9.   sl:=TStringList.Create;
11.   with vst.CheckedNodes(csCheckedNormal).GetEnumerator do
13.   begin
15.     MoveNext;
17.     repeat
19.        //如果是根节点，即FIR，则跳到下一个循环
21.        if vst.GetNodeLevel(current)=0 then  Continue;
23.        s:='';
25.        if Assigned(current) then
27.        with pcodes(vst.GetNodeData(current))^ do
29.        begin
31.          s:=s.Join(',',[icao,iata,names,rwy_style,apt_type]);
33.        end;
35.        sl.Add(s);
37.     until not MoveNext;
39.   end;
41.   //直接把文档存储到执行文件所在目录的文件中
43.   sl.SaveToFile('checkedapts.csv');
45.   FreeAndNil(sl);
47. end;

复制代码

 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！