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

2023-05-29 15:23 由 Luo大哥发表于 #后端开发

二、节点的遍历

每一个节点都有一个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;
……

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

var node:pvirtualnode;

……

begin

  node:=vst.getfirst;

  repeat

     ……

     node:=vst.getnext(node);

  until node=vst.getlast;

end;

当然，上面的代码中未包含对最后一个节点的处理。

2、遍历函数IterateSubtree

遍历函数的原型是：

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

功能是对VST中的Node的每一个子（孙）节点进行一次回调函数（callback）的操作。如果回调函数返回了abord：=true，则终止遍历，并返回终止遍历的节点。

如果参数node=nil，则对所有的节点进行遍历。

data是传入回调函数的指针参数，而Filter是筛选器，如果为空，则对所有的节点进行遍历，否则只对具有筛选器状态的节点进行遍历。例如如果filter包含“vsvisible”，则只对可见的节点进行遍历。

回调函数的格式是：

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

其中data指的就是IterateSubtree中指向的数据data。

以本程序为例，当编辑框中内容发生改变，则立即查找符合条件的节点，并设置为可见，不符合条件的节点则设置为不可见。

代码如下：

procedure TForm2.lbledt1Change(Sender: TObject);

var data:pchar;

begin

   data:=PChar(lbledt1.Text);

   //beginupdate之后的语句只有当遇到endupdate之后才进行显示刷新

   //可以避免程序的频繁刷新导致的抖动，加快程序的运行。

   vst.BeginUpdate;

   //调用遍历函数，传入的参数是文本框的文本

   vst.IterateSubtree(nil,getnodebystr,data);

   //让所有符合条件的节点展开

   vst.FullExpand();

   vst.EndUpdate;

end;

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

procedure GETNODEBYSTR(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);

……

procedure TForm2.GETNODEBYSTR(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);

var str1,str2:string;

begin

  str1:=string(Data).Trim.ToUpper;

  with pcodes(Sender.GetNodeData(node))^ do

  begin

    str2:=icao+'|'+iata+'|'+names;

  end;

  str2:=str2.Trim.ToUpper;

  if str2.Contains(str1) or str1.IsEmpty then

  begin

    Sender.FullyVisible[NODE]:=true;

    //下面部分是设置可见的另一种写法，如果不包含子节点，则效率会更高

    //sender.IsVisible[node]:=True;

    //if Sender.GetNodeLevel(node)>0 then//有父节点的情况下

    //  Sender.IsVisible[Node.Parent]:=True;

  end

  else

  begin

    Sender.IsVisible[node]:=false;

  end;

end;

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

3、节点序列

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

TVTVirtualNodeEnumeration = record

  objectprivateFMode: TVZVirtualNodeEnumerationMode;

  FTree: TBaseVirtualTree;

  FConsiderChildrenAbove: Boolean;

  FNode: PVirtualNode;

  FNodeLevel: Cardinal;

  FState: TCheckState;

  FIncludeFiltered: Boolean;

end;

并提供了一个函数：GetEnumerator，用于从FTREE中获取具有指定特征的节点，例如checkednodes就是从VST中取得具有某种TCheckState属性的所有节点，而SelectedNodes则是获得具有selected属性的节点（node的states属性），所以你也可以写自己的节点序列程序。

函数GetEnumerator返回的是一个TVTVirtualNodeEnumerator类型的结构（record），其具体使用代码例子如下：

var node:PVirtualNode;

begin

  with vst.CheckedNodes().GetEnumerator do

  begin

    MoveNext;

repeat

      node:=Current;

      ……

    until not MoveNext;

  end;

end;

需要注意的是，一定要针对GetEnumerator返回的结构进行操作，不能一次次的调用GetEnumerator.current 和GetEnumerator.movenext，因为每次调用一次GetEnumerator就会生成一次序列。

请注意，调用GetEnumerator后，current并没有对应某个NODE，需要调用一次movenext后，current才指向第一个node，每调用一次movenext，current指向下一个node，如果已经是最后一个node，调用movenext则返回false.

程序中写了一小段代码，用于把选中的机场资料导出到一个CSV文件中。

procedure TForm2.N5Click(Sender: TObject);

var sl:TStringList;s:string;

begin

  if vst.CheckedCount=0 then Exit;

  sl:=TStringList.Create;

  with vst.CheckedNodes(csCheckedNormal).GetEnumerator do

  begin

    MoveNext;

    repeat

       //如果是根节点，即FIR，则跳到下一个循环

       if vst.GetNodeLevel(current)=0 then  Continue;

       s:='';

       if Assigned(current) then

       with pcodes(vst.GetNodeData(current))^ do

       begin

         s:=s.Join(',',[icao,iata,names,rwy_style,apt_type]);

       end;

       sl.Add(s);

    until not MoveNext;

  end;

  //直接把文档存储到执行文件所在目录的文件中

  sl.SaveToFile('checkedapts.csv');

  FreeAndNil(sl);

end;