TreeView节点的选择(50分)

怎么样定位TreeView节点？就是让Treeview选中的节点是一个Edit中的内容

？？不明白你的意识

Treeview用于显示按照树形结构进行组织的数据。

Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。
一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定形指针(Untyped Pointer)，
可以指向一个与节点相联系的数据结构。
　　
每一个节点下子节点形成这一节点的Items属性，当前节点有一个唯一的Index(TreeNode的Index属性)，
用于说明子节点在Items中的位置，每一个节点下的子节点是顺序编号的，第一个是0，第二个是1，依次类推。
用IndexOf方法获得子节点的顺序，绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值，
第一个是0，如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于
此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。

Expanded属性表明是否所有的子项都全部展开(包括子项的子项)，为True表示全部展开。
IsVisible属性表明一个项是否在树中能被看到，如果树全部展开那么这个Item是肯定可以
被看到。

HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild, GetPrevChild,
and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。

GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。
GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点
有Parent，则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是
否落在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。

Selected属性表明一个节点是否被选中，同样只有一个节点会被选中。

DropTarget属性表明节点在拖动操作中是源还是目标。

.1.添加、删除、修改节点：
静态的方法可以在设计时通过Items的编辑器设置各节点的内容。
在添加和删除前必须保证有节点被选中(Treeview.Selected = nil)
用AddFirst, AddFirstChild, AddChild等先添加根节点，如Treeview.Items.AddFirst( nil, 'Root')；
然后以此为基础，添加此项的子节点。

删除节点
Treeview.Selected.Delete

编辑节点内容
Treeview.Selected.EditText

注意：由于根节点没有父节点 (TTreeNode.Parent= nil)
此外，在大批量添加数据到Treeview中时最好使用
　　TreeView.Items.BeginUpdate;
　　添加节点
　　TreeView.Items.EndUpdate
这样能加快显示速度。

2.在节点上添加图象
Treeview中几个与图象相关的属性：
　　SelectedIndex：当节点被选中时在TimageList 中选什么样的图象
　　OverlayIndex：选那副图象作为掩图（一幅图象透明地显示在另一幅图象的前面），
比如一个节点不可用时加一副X图象在其前面。
　　ImageIndex：在常态时选用的图的序号
　　StateIndex： 在StateImages这个ImageList中对应的序号，-1时不显示图象
　　比较典型的，象在文件管理器中的所显示的一样，Treeview控件在节点之前也可以
显示图象。在Form中放置一ImageList控件，加入几个图片，分别被Index为0,1,…
在Treeview的Image属性项填入你所加入的ImageList的控件名称。TreeNode的ImageIndex
表示节点未被选中时(Selected=nil)的图片序号，SelectedIndex表示节点被选中时图片序号。

3.关于Level
Level的概念可以用下图表示：
Level0　　 Level1 Level2

4.排序
SortType决定什么时候进行排序；
TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。

5.Drag&Drop操作，与标准的拖放操作使用方法一样

Node := Treeview.FocusedNode;
edit.text := Node.values;

UP
学习

for(int i=0;i< TreeView1->Items->Count;i++)
{
if( TreeView1->Items->Item->Text==Edit->Text)
{
TreeView1->Select(TreeView1->Items->Item);
}
}

楼上的兄弟，你那种方法，在TreeView里面节点比较多时，非常非常慢
最好不要使用TreeView1.items遍历TreeView
使用GetFirstNode, GetNext等

用树型结构表示科目代码的一种高效算法

在很多常见的财务软件中，科目代码一般都用树型结构来显示。要实现这一点，通常的做法是用多个（嵌套）循环，甚至递归等算法，将科目表中的代码”织”成树，但这样不但算法复杂，而且执行效率低。本人在实际的开发应用中，摸索出一种简单高效的算法，在此和盆托出，只在抛砖引玉，找出最佳解决方案。下面介绍在Delphi中的实现方法。

一．表结构

首先建立如下结构的数据表Code.DB，并输入一些测试数据：

字段名 类型 长度 说明
aCode 字符型 20 科目代码
aName 字符型 30 科目代码名称
...... ...... ...... ......
表（一）

其中，科目代码aCode的数据类型一定要字符型（一定），长度按具体要求而定，假如要支持六级编码，且代码结构是”3-2-2-2-2-2”，则该字段的长度不小于18，而其他字段则不作要求 。另外，要为字段aCode建一索引（切记），因为要用它来排序。

二．编写程序

1．新建一Project：CodeTree.drp，主窗体命名为frmMain，单元存为Main.Pas。在frmMain上添加一TtreeView控件，命名为tveCode，一个TImageList，命名为imgIcon，并装入三个Icon和Bmp，最后添加一Ttable控件，命名tblCode。frmMain和各控件的属性按表(二)设置：

组件 属性 设置
FrmMain Caption ’科目代码’
Font 宋体 9号
BorderStyle BsDialog
TvwCode Images ImgIcon
ReadOnly True
ImgIcon ImageList 装入三个图标
BtnClose Caption 关闭(C)

表（二）

2. 单元main.pas的完整源代码如下：

unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Db, DBTables, ComCtrls, ImgList, StdCtrls;
type
TForm1 = class(TForm)
tvwCode: TTreeView;
tblCode: TTable;
ImageList1: TImageList;
btnClose: TButton;
procedure FormCreate(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
function LoadCode(crTbl:TDBDataSet):Integer;
function GetLevel(sFormat,sCode:String):Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
const
SCodeFormat = ’322222’; //科目代码结构
SFirstNodeTxt = ’科目代码’; //首节点显示的文字
implementation
{$R *.DFM}
//以下函数是本文的重点部分，
其主要功能是用一循环将Code.db表中的
//科目代码和科目代码名称显示出来
function TForm1.LoadCode(crTbl:TDBDataSet):Integer;
var NowID,sName,ShowTxt:String;
i,Level:Integer;
MyNode:array[0..6]of TTreeNode;
//保存各级节点，最长支持6级(重点)
begin
Screen.Cursor:=crHourGlass;
Level:=0;
With crTbl do
begin
try
if not Active then Open;
First;
tvwCode.Items.Clear;
//以下是增加第一项
MyNode[Level]:=tvwCode.Items.Add
(tvwCode.TopItem,SFirstNodeTxt);
MyNode[Level].ImageIndex:=0;
MyNode[Level].SelectedIndex:=0;
//以上是增加第一项
While Not Eof do
begin
NowID:=Trim(FieldByName(’aCode’).AsString);
ShowTxt:=NowID+’ ’+FieldByName(’aName’).AsString;
Level:=GetLevel(SCodeFormat,NowID);
//返回代码的级数
//以下是增加子项
//以下用上一级节点为父节点添加子节点
if Level>0 then//确保代码符合标准
begin
MyNode[Level]:=tvwCode.Items.AddChild
(MyNode[Level-1],ShowTxt);
MyNode[Level].ImageIndex:=1;
MyNode[Level].SelectedIndex:=2;
end;
//以上是增加子项
Next;
end;
finally
Close;
end;
end;
MyNode[0].Expand(False);//将首节点展开
Screen.Cursor:=crDefault;
end;
//以上函数将Code.db表中的科目代码和科目代码名称显示出来
//下面函数的功能是返回一代码的级数，
参数sFormat传递科目代码结构；
//参数sCode传递某一科目代码
function TForm1.GetLevel
(sFormat,sCode:String):Integer;
var i,Level,iLen:Integer;
begin
Level:=-1;//如果代码不符合标准，则返回-1
iLen:=0;
if (sFormat< >’’)and(sCode< >’’)then
for i:=1 to Length(sFormat) do
begin
iLen:=iLen+StrToInt(sFormat);
if Length(sCode)=iLen then
begin
Level:=i;
Break;
end;
end;
Result:=Level;
end;
//上面函数的功能是返回一代码的级数
procedure TForm1.FormCreate(Sender: TObject);
begin
with tblCode do
begin
DatabaseName:=ParamStr(1);
//使tblCode的DatabaseName指向应用程序所在的路径
TableName:=’Code.DB’; //指向数据表Code.DB
Open;
IndexFieldNames:=’aCode’;
//按字段aCode排序(不要漏掉)
end;
LoadCode(tblCode);
end;
procedure TForm1.btnCloseClick(Sender: TObject);
begin
Close;
end;
end.
其中，常量ScodeFormat是科目代码的代码结构，其定义的规则一定要和数据表Code..DB中的字段aCode的值相符。所以在实际应用中，让用户新增科目代码时，必须严格检查其规范性，只有完全符合事先定义的代码结构，才能添加入库。

函数GetLevel是求某一科目代码的级数，例如，有一科目代码”10102”，在代码结构是”322222”的情况下，调用函数GetLevel(’322222’,’10102’)将返回整数2 。

当然，本文的核心是LoadCode函数，该函数用了一个循环来遍历数据表Code.DB的所有记录，将字段aCode和aName的内容按层次显示出来。而在该函数中定义的二维数组MyNode[0..6]，则显得优为重要，在这里，它作用类似于递归中的栈。因为在TTreeView添加子节点的方法AddChild(Node: TTreeNode; const S: string)中，要为其指定一父节点作为参数，而父节点的代码级数一定是要添加节点的代码级数减1，所以只要用一数组来动态保存和指定父节点就成功了。

三．运行结果

好了，现在把Code.DB复制到和可执行文件相同的目录下，按下F9键编译运行，本人运行的效果如图（一）。只要在以上的基础上加以完善，如增加维护功能，就可搬到实际应用中了。当然，本算法不单能用在科目代码上，其他类似的树型结构都能奏效。本人就已将此算法应用于[科目代码]、[物料清单（BOM）]、[库房管理]和[物料主文件]等多个模块中，取得令人满意的效果。

多人接受答案了。