ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EHLib выборка из дерева всех SUB уровней активного уровня
3 сообщений из 3, страница 1 из 1
EHLib выборка из дерева всех SUB уровней активного уровня
    #40080628
yemets63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yemets63
Участник
EHLib решает много проблем, но есть вопрос, чтобы не городить рекурсивный запрос и не бегать по узлам, я думал, что может есть функция о которой я не знаю

и так
есть дерево в EHLib
1.
1.2
1.3
2.
2.1.
2.2.
2.2.1.
2.2.2.
2.2.2.1
3.
3.1.
4.
как пример.
мне нужно вытащить из нее узел 2.2. со всеми под узлами
т.е. получить ID строки из этого списка
2.2.
2.2.1.
2.2.2.
2.2.2.1

P.S:
сейчас у меня две базы MariaDB и MSSQL, поэтому я не хочу это делать на уровне баз
до этого я использовал Oracle и такую задачу я решал просто, все ну или почти все было на сервере приложений, там был рекурсивный запрос который строил деревья, и также вытаскивал содержимое любого узла и возвращал строку клиенту. это было быстро и удобно. но в MariaDB такая аналогия работает как то не очень, в MSSQL тоже. поэтому я решил попробовать чуть изменить решение, собрать в самом компоненте.

как вытащить нужный мне узел средствами компонентов EHLib
...
Рейтинг: 0 / 0
28.06.2021, 23:54
| Ответить | Цитировать | Написать  
EHLib выборка из дерева всех SUB уровней активного уровня
    #40080631
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
yemets63,

в режиме "дерево" данные грида TDBGriidEh хранятся в экземпляре TMemTableEh.

См. документацию по данному компоненту, раздел "Режим хранения записей в виде дерева (TreeView)".
Коротко: у TMemTableEh в режиме дерева текущая запись представлена свойством
Код: pascal
1.
RecView: TMemRecViewEh.


А у свойства TMemRecViewEh есть все необходимое:
TreeNodeLevel
TreeNodeHasChildren
TreeNodeChildCount
и - NodeItems[const Index: Integer]: TMemRecViewEh

Например.
Открываем демку Demos\TreeView, бросаем на форму батон2 и добавляем код:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
procedure TForm1.Button2Click(Sender: TObject);
var
  lvl: Integer;
  res: string;
  rv: TMemRecViewEh;
  procedure ScanNode(aRec_view: TMemRecViewEh; var aStr_res: string; var aLevel:
    integer);
  var
    tmp_str: string;
    i: Integer;
  begin
    inc(aLevel);
    tmp_str := StringOfChar(' ', aLevel) +
      Format('%s/%s = Уровень: %d, Дети: %d', [
        VarToStr(aRec_view.Rec.DataValues['NAME', dvvValueEh]),
        VarToStr(aRec_view.Rec.DataValues['ID', dvvValueEh]),
        aRec_view.NodeLevel,
        aRec_view.NodesCount])
    + #10;
    aStr_res := aStr_res + tmp_str;
    if aRec_view.NodeHasChildren then
      for i := 0 to Pred(aRec_view.NodesCount) do
        ScanNode(aRec_view.NodeItems[i], aStr_res, aLevel);

    dec(aLevel);
  end;
begin
  rv := MemTableEh1.RecView;
  res := '';
  lvl := 0;
  ScanNode(rv, res, lvl);

  ShowMessage(res);

end;


Результат:
...
Рейтинг: 0 / 0
29.06.2021, 01:54
| Ответить | Цитировать | Написать  
EHLib выборка из дерева всех SUB уровней активного уровня
    #40080716
yemets63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yemets63
Участник
ъъъъъ,

спасибо,
я сделал проще, в пять строк, так как все под узлы имеют TreeLevel больше, чем узел на котором курсор, и я иду вниз по дереву по записям копии MemTable.
Но это все равно бежать по циклу, в жизни конечно у меня не было деревьев более 1000 записей, но он все равно бежит по циклу.
поэтому и спросил вчера.

P.S. Конечно вряд ли, но если представить, что это 100000 записей и он побежал собирать IDшники.
...
Рейтинг: 0 / 0
29.06.2021, 14:49
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EHLib выборка из дерева всех SUB уровней активного уровня
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]