На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное 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;
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0174 ]   [ 17 queries used ]   [ Generated: 29.03.24, 06:53 GMT ]