求----关于树的查找算法

Question

树结构如下：   ID(编号)   INFO（内容）  FthNO（父接点编号）
   00001       ADDA          00000
   00002       ASDFSADF      00001
   00003       ADDA          00000
   00004       ADDA          00000系统TTreeView 节点的值为INFO字段的内容（且只有该字段的内容），现在我要通过ID字段的值查找数据，如我要查找编号为“00004”的数据“ADDA”，怎么写算法。函数定义如下：Function FindTreeNode(Tree:TTreeView;NodeID:String):TTreeNode;
Beginend;注意最好是递归算法（PASCAL语法）。

Answer 1

Function FindTreeNode(Tree:TTreeView;NodeID:String):TTreeNode;
var
 i: Integer;
Begin
 Result:=nil;
 for i:=0 to Tree.Items.Count-1 do
  if Tree.Items.Item[i].Text=NodeID then
  begin
   Result:=Tree.Items.Item[i];
   Break;
  end;
end; //实际上是树的先根遍历