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:=true;
//下面部分是设置可见的另一种写法，如果不包含子节点，则效率会更高
//sender.IsVisible:=True;
//if Sender.GetNodeLevel(node)>0 then//有父节点的情况下
//Sender.IsVisible:=True;
end
else
begin
Sender.IsVisible:=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 thenContinue;
s:='';
if Assigned(current) then
with pcodes(vst.GetNodeData(current))^ do
begin
s:=s.Join(',',);
end;
sl.Add(s);
until not MoveNext;
end;
//直接把文档存储到执行文件所在目录的文件中
sl.SaveToFile('checkedapts.csv');
FreeAndNil(sl);
end;
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！
页:
[1]