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;
  •          ……

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

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;

 

热门相关:无量真仙   夫人你马甲又掉了   修仙界最后的单纯   法医娇宠,扑倒傲娇王爷   朕是红颜祸水