Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EHLib выборка из дерева всех SUB уровней активного уровня / 3 сообщений из 3, страница 1 из 1
28.06.2021, 23:54
    #40080628
yemets63
yemets63
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EHLib выборка из дерева всех SUB уровней активного уровня
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
| Ответить | Цитировать | Написать  
29.06.2021, 01:54
    #40080631
ъъъъъ
ъъъъъ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EHLib выборка из дерева всех SUB уровней активного уровня
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, 14:49
    #40080716
yemets63
yemets63
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EHLib выборка из дерева всех SUB уровней активного уровня
ъъъъъ,

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

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


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