将指定目次的布局装入TreeView中

副标题#e#

　TreeView组件是一个树状的列表组件，它在应用措施的编写中有极其遍及的应用。如：资源打点器、网际快车（FlashGet）、FoxMail等，个中，Windows的资源打点器就是一个典范的例子。

在C++ Builder中，要利用TreeView组件是件很容易的工作，只要挪用TreeView组件的Add或AddChild要领就可以很利便地为TreeView添加一个新的节点。若要将指定的磁盘或目次的树状布局放到TreeView组件中，可以利用遍历目次树的要领将指定磁盘或目次下的所有目次（包罗子目次）和文件添加到TreeView中。

下面，让我们通过实际的例子来实现把C盘目次树装载到TreeView中。

首先，运行Borland C++ Builder 5.0，在窗体Form1上添加两个Button组件、一个Edit组件、一个TreeView组件和一个Animate组件。然后把组件Button1的Caption属性改为“装载TreeView1”，把组件Button2的Caption属性改为“排除”，把组件Edit1的Text属性改为“C:\”，用来配置默认的要遍历的目次–C盘的根目次，组件Animate1是在遍历目次时用来显示动画，在这里把它的CommonAVI属性设成“aviFindComputer”，为显示查找计较机的动画，你也可以设为其它动画。

按F12键打开代码编辑窗口，在“TForm1 *Form1;”语句的下面插手下面的这条语句界说自界说函数BrowDir：

void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode * Num);

BrowDir函数是一个通过递归挪用来实现遍历目次的自界说函数。它有三个参数，第一个参数传送一个TreeView组件的节点用以增加新的节点，第二个参数是指定目次的路径，第三个参数也是传送一个节点，用来说明要在谁人节点增加新节点。

#p#副标题#e#

下面是它的措施清单：

void __fastcall BrowDir(TTreeNodes * Nodes,AnsiString PathName,TTreeNode * Num)
{
TSearchRec sr;
TTreeNode* Layel;
//罗列所有的目次
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)
{
do
{
//判定是否是目次，并解除目次“.”和“..”
if((sr.Attr & faDirectory) && sr.Name!="." && sr.Name!="..")
{
//增加新节点
Layel=Nodes->AddChild(Num,"目次：" + sr.Name);
//挪用函数自己，进入子目次
BrowDir(Nodes,PathName+sr.Name+"\\",Layel);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
//罗列所有文件
if (FindFirst(PathName+"*.*", faAnyFile, sr) == 0)
{
do
{
if(!(sr.Attr & faDirectory))
Nodes->AddChild(Num,"文件：" + sr.Name);
} while (FindNext(sr) == 0);
FindClose(sr);
}
}

将自界说函数BrowDir()添加到措施中，然后双击Button1组件，在它的OnClick事件中插手：

//配置光标为漏斗

Screen->Cursor=crHourGlass;

//激活Animate

Animate1->Active=true;

AnsiString Path=Edit1->Text;

//假如Path最后一个字符不是“\”就在后头加上“\”

if(Path.SubString(Path.Length(),1)!="\\")

Path+="\\";

BrowDir(TreeView1->Items,Path,TreeView1->Items->Add(NULL,Path));

#p#副标题#e#

//配置光标为正常状态

Screen->Cursor=crDefault;

//封锁Animate

Animate1->Active=false;

在Button2的OnClick事件中插手：

TreeView1->Items->Clear();

TreeView2->Items->Clear();

按F9编译运行，点击“装载TreeView1”按钮，过一会儿TreeView1组件就会呈现C盘目次树的布局。

这种要领的利益是打开子节点的速度快，缺点就是遍历目次时，当子目次和文件越多，遍历时所需的时间就越长。用这样例子来做资源打点器，显然是不可的。

我们都知道，TreeView组件有一个OnChange事件，当TreeView组件的节点产生改变的时候就会产生该事件。若在该事件中插手相应的代码，把改变的节点所暗示目次下的子目次添加到TreeView组件中，这样，措施运行时速度就会很快。

这种要领实现步调如下：

往窗体Form1上再添加一个Button组件和一个TreeView组件，它们的Name属性别离为：Button3和TreeView2。把Button3的Caption属性改为“装载TreeView2”，然后双击Button3组件，在Button3的OnClick事件中插手以下代码：

AnsiString Path=Edit1->Text;
if(Path.SubString(Path.Length(),1)!="\\")
Path+="\\";
TreeView2->Items->Add(NULL,Path);
在TreeView2的OnChangeing事件中插手：
Screen->Cursor=crHourGlass;
Animate1->Active=true;
//防备反复增加节点
if(Node->Count==0)
{
TSearchRec sr;
AnsiString DirName,DirTmp;
TTreeNode * NodeTmp=Node;
DirName=Node->Text;
//获得完整的路径
for(int I=Node->Level ;I>0 ;I--)
{
NodeTmp=NodeTmp->Parent;
DirTmp=NodeTmp->Text;
if(DirTmp.SubString(DirTmp.Length(),1)!="\\")
DirTmp+="\\";
DirName.Insert(DirTmp,0);
}
if(DirName.SubString(DirName.Length(),1)!="\\")
DirName+="\\";
if (FindFirst(DirName+"*.*", faAnyFile, sr) == 0)
{
do
{
if((sr.Attr & faDirectory) && sr.Name!="." && sr.Name!="..")
{
TreeView2->Items->AddChild(Node,sr.Name);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
Screen->Cursor=crDefault;
Animate1->Active=false;

#p#副标题#e#
#p#分页标题#e#

这种要领速度固然很快，但由于只是添加一层的子目次，所获得的节点暗示的目次下不管有没有子目次，节点左边都没有“＋”标记（有“＋”暗示有子节点），因此就有须要将它修改一下了，于是就有第三种要领的呈现。

第二种要领是因为只添加了下一级的子目次，所以才会呈现这种问题，假如我们添加到下两级的子目次，问题就会获得办理，这就是第三种要领。这样，当打开一个节点的时候，OnChange事件的代码就会把下两级的子目次添加进来，再打开一个节点，该节点下两级的子目次又被添加进来，看起来就像是把整个目次树放到了TreeView中一样。

第三种要领的实现如下：

再添加一个Button组件Button4和一个TreeView组件TreeView3到窗体Form1上，将Button4的Caption属性改为“装载TreeView3”，双击Button4组件，在Button4的OnClick事件中插手以下代码：

AnsiString Path=Edit1->Text;
if(Path.SubString(Path.Length(),1)!="\\")
Path+="\\";
TTreeNode * Node1=TreeView3->Items->Add(NULL,Path);
TSearchRec sr;
if (FindFirst(Path+"*.*", faAnyFile, sr) == 0)
{
do
{
if((sr.Attr & faDirectory) && sr.Name!="." && sr.Name!="..")
{
TreeView3->Items->AddChild(Node1,sr.Name);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
在TreeView3的OnChangeing事件中插手：
Screen->Cursor=crHourGlass;
Animate1->Active=true;
TSearchRec sr;
TTreeNode * NodeTmp=Node;
AnsiString DirName,DirTmp;
DirName=Node->Text;
for(int I=Node->Level ;I>0 ;I--)
{
NodeTmp=NodeTmp->Parent;
DirTmp=NodeTmp->Text;
if(DirTmp.SubString(DirTmp.Length(),1)!="\\")
DirTmp+="\\";
DirName.Insert(DirTmp,0);
}
if(DirName.SubString(DirName.Length(),1)!="\\")
DirName+="\\";
for(int J=0;J<Node->Count;J++)
{
if(Node->Item[J]->Count==0);
{
if (FindFirst(DirName+Node->Item[J]->Text+"\\*.*", faAnyFile, sr) == 0)
{
do
{
if((sr.Attr & faDirectory) && sr.Name!="." && sr.Name!="..")
{
TreeView3->Items->AddChild(Node->Item[J] ,sr.Name);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
}
Screen->Cursor=crDefault;
Animate1->Active=false;

好了，措施代码插手完后，将各个组件分列一下，按F9再编译运行一次，这三种将目次树的布局装入TreeView中的要领，你较量喜欢那一种呢？本身较量一下吧。以上的措施在Win98/Win2000，Borland C++ Builder 6.0下运行通过。