树型结构的遍利查找!

Question

我这里有三层树.TREEVIEW
A_
  |AAA
      |-1
      |-2
      |-3
我想写个算法以知3这个值,我来通过遍历来找到3, 
 if key=vk_f6 then
  begin
    if inputquery('QUERY ','WORKER CODE:',wkcodes) then
    begin
      for i:=0 to (treeview1.Items[0].Count-1) do
      begin
        for j:=0 to (treeview1.Items[0].Item[i].Count-1) do
        begin
          for k:=0 to (treeview1.Items[0].Item[i].Item[j].Count-1) do
          begin
            if treeview1.Items[0].Item[i].Item[k].Text<>wkcodes then
              treeview1.Items[0].Item[i].GetNext
            else
              treeview1.Items[0].Item[i].DisplayRect(true);
          end;
        end;
      end;
    end;
  end;
怎么不行啊?

Answer 1

for i:=0 to treeview1.items.count-1 do
  if treeview1.items[i].text=wkcodes then
    begin
      treeview1.Items[i].DisplayRect(true);
      break;
    end;if i=treeview1.items.count-1  then
  showmessage('未找到！')
else
  showmessage('已找到！');