1. Pascal / Говнокод #549

    +152

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    if currIndex=2 then
          begin
          // разкрываем выделенные узлы
            TreeView_U.Items[r].Expanded:=true;
            if TreeView_U.Items[r].Parent <> nil then
            begin
              TreeView_U.Items[r].Parent.Expanded:=true;
              if TreeView_U.Items[r].Parent.Parent <> nil then
              begin
                TreeView_U.Items[r].Parent.Parent.Expanded:=true;
                if TreeView_U.Items[r].Parent.Parent.Parent <> nil then
                TreeView_U.Items[r].Parent.Parent.Parent.Expanded:=true;
              end;
            end;

    Наткнулся тут в прокете. Поначалу просто кусок закоментировал не разбираясь, потому что просто не нужен. Суть - попытка раскрыть полностью ветвь дерева, если в ней есть хоть один выбранный (с помеченным чекбоксом) элемент, о чём говорит currIndex=2.
    Весь офис валяется под столами :)))

    Запостил: guest, 13 Февраля 2009

    Комментарии (5) RSS

    • Keeper:
      Автор не знал про рекурсию?
      Ответить
    • Капитан Очевидность:
      вопрос ^ риторический :))
      Ответить
    • угаг:
      автор не знал, что его код запостят на говнокод :)))
      Ответить
    • Дмитрий:
      а фигле, ну впадло было рекурсивную функцию писать =) А тут быстро не думаю нашлепал, лижбы побыстрее....
      Ответить
    • Del:
      Какая нафиг рекурсия, камрады? При открытии ветки дерева всё, что выше - оно без вашего участия откроется, ЕМНИП.
      Ответить

    Добавить комментарий