有誰知道，什麼function或procedure是尋找treenode的節點的，根據treenode.text查找

Question

有誰知道，什麼function或procedure是尋找treenode的節點的，根據treenode.text查找

Answer 1

没有，自己写吧。
自己写了一个，试试吧，（代码未经验证，可能有BUG或者编译错误）
  treeNode:=TreeView1.Items.Item[0].Text;
  for i:=0 to TreeView1.Items.Count-1 do
  begin
    if treeNode.text = XXXX then
      break  //找到
    else
    begin 
      if TreeView1.Items.Item[i].GetNext = nil then
        break  //没找到
      else 
        treeNode := TreeView1.Items.Item[i].GetNext; 
    end;
  end;
  
  

Answer 2

function TForm1.GetTreeNode(const TreeNodeText: string): TTreeNode;
begin
  Result := TreeView1.Items.GetFirstNode;
  while Result <> nil do
  begin
    if Result.Text = TreeNodeText then break;   
    Result := Result.GetNext;
  end;
end;

Answer 3

function TextInTree(ATree: TTreeView; AText: string;
  ACase: Boolean = False; ALike: Boolean = False): Boolean;
var
  I, Len: Integer;
  Compare: function(const S1, S2: string): Integer;
begin
  Result := False;
  Compare := @CompareText;
  if ACase then
    Compare := @CompareStr;
  Len := Length(AText);
  with ATree do
    for I := 0 to Items.Count - 1 do
    begin
      if not ALike then
        Result := Compare(AText, Items[I].Text) = 0
      else
        Result := Compare(AText, Copy(Items[I].Text, 1, Len)) = 0;
      if Result then
      begin
        Items[I].Selected := True;
        break;
      end;
    end;
end;

Answer 4

function FindNode(Treeview1:TTreeview;nodetext:string) :TTreeNode;
var
   i,lcount:integer;
   str:string;
   tmpnode:TTreeNode;
begin
  lcount:=Treeview1.Items.Count;
  for i:=0 to lcount -1 do
  begin
     tmpNode:= TreeView1.Items.Item[i];
     if tmpNode.text=nodetext then 
     begin
        result:=tmpNode;
        //exit;
     end;
   end;
   result:=nil
end;