根据一字符窜在treeview中定位节点

[heshiquan]

现在要将公司的架构用树行控表现,(表department字段:bh,mc,parent_bm)本人希望能输入编码时,能定位到控件上一接点,该如何?

[Hillside]

TheNode:=nil;
with TreeView.Items do for i:=0 to pred(Count) do
if Items[i].Text=DesireText then begin
TheNode:=Items[i];
break;
end;
if TheNode=nil then ShowMessage('Text not found')
else TheNode.MakeVisible(False);

[heshiquan]

thank you very much ............................,不过你这样定位可能时间较慢，特别在初始化TREEVIEW时并记录很多时，会很慢，请文有更好的方法？

[neweb]

如果你是查找整个字符串：

theNode := TreeView1.TopItem.getFirstChild;
while (theNode.Text<>theStr) do
begin
if (theNode不是最后一个节点) then
theNode := theNode.GetNext
else
break;
end;

if (theNode.Text<>theStr) then
//没找到
else
//找到了;

如果你想每敲一个字查一次，改一下上面的代码也可以实现。

[heshiquan]

thank you very much ............................
能否通过排序查找或者象VB中一样treenode的key属性来定位？

[neweb]

Delphi 没有这样的方法，你可以自己写一个来模拟

[heshiquan]

能否利用record 将node的data指向一record

[quark]

//==============================================================================
//数据集解构成树****************************************************************
//==============================================================================
procedure DataSetToTreeView(DataSet: TDataSet; var TreeView: TTreeView; NodeRoot: string);
var Nodes: array of TTreeNode;
Strs: array of string;
i: integer;
begin
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
with DataSet do
begin
Close;
Open;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetLength(Nodes, FieldCount+1);
SetLength(Strs, FieldCount);
Nodes[0] := TreeView.Items.AddChild(nil, NodeRoot);
for i:=Low(Strs) to High(Strs) do Strs[i] := #255;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
First;
while not Eof do
begin
for i:=Low(Strs) to High(Strs) do
if Strs[i]<>Fields[i].AsString then
begin
Strs[i] := Fields[i].AsString;
Nodes[i+1] := TreeView.Items.AddChild(Nodes[i],Fields[i].AsString);
end;
Next;
end;
Close;
end;
end;