На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Поиск в TTreeView
      ExpandedWrap disabled
        Function FindNode(Tree: TTreeView; Node: TTreeNode; S: String): TTreeNode;
        Var t:Integer;
        Begin
         Result:=nil;
          { Если поиск идёт в корне }
         IF not Assigned(Node) then
          Begin
           Node:=Tree.Items.GetFirstNode;
           While Assigned(Node) Do
            Begin
             IF Node.Text = S then
              Begin
               Result:=Node;
               Break;
              End; {IF}
             Node:=Node.GetNextSibling;
            End; {While}
           { или если в другой ветви }
          End else For t:=0 to Node.Count - 1 Do IF Node[t].Text = S then
          Begin
           Result:=Node[t];
           Break;
          End; {else}
        End;
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0596 ]   [ 15 queries used ]   [ Generated: 20.11.19, 01:07 GMT ]