[thxu2]

Нужно организовать промежуточную ступень между accses и деревом,чтобы там хранить структуру бд. Как лучше это сделать??? Может как-то можно записывать структуру в reccord а потом по ней строить дерево????

[poli-smen]

Сообщение от thxu2

Нужно организовать промежуточную ступень между accses и деревом,чтобы там хранить структуру бд. Как лучше это сделать??? Может как-то можно записывать структуру в reccord а потом по ней строить дерево????

Под деревом подразумевается TTreeView? Если так, то у узлов есть свойство TTreeNode.Data в котором можно хранить свои данные, например уникальное поле записи (ID) таблицы.
И ещё можешь посмотреть уже готовые реализации DBTreeView здесь.

[thxu2]

Я знаю Как сделать дерево по бд .Нужно сделать чтобы структура была отдельно от дерева и хранилась где-то,заполняясь из бд при запуске проги,а потом по ней строилось дерево .

[poli-smen]

Сообщение от thxu2

Я знаю Как сделать дерево по бд .Нужно сделать чтобы структура была отдельно от дерева и хранилась где-то,заполняясь из бд при запуске проги,а потом по ней строилось дерево .

Тогда делай на record'ах, что-то типа такого:

Код:

type
  PMyNode = ^TMyNode;
  TMyNode = record
    Parent: PMyNode;
    PrevSibling: PMyNode;
    NextSibling: PMyNode;
    FirstChild: PMyNode;
    LastChild: PMyNode;
    Data: ...
  end;

И при чтении из бд заполняй эту структуру вместо TTreeView.
Или же сделай с помощью классов - обычно с ними удобнее работать чем с record'ами.

[thxu2]

А примерчика у тебя нет никакого??????

[thxu2]

Хотя бы поподробнее как с record ом работать.Вот допустим я в него записал всё что нужно,как потом к этим записям обратиться?????

[Lost_Fish]

Сообщение от thxu2

Я знаю Как сделать дерево по бд .Нужно сделать чтобы структура была отдельно от дерева и хранилась где-то,заполняясь из бд при запуске проги,а потом по ней строилось дерево .

если речь о бд то я такие структуры строю так таблица с деревом где есть ID,ParentID,NodeID где NodeID это ID из другой таблицы со всеми необходимыми данными узла, тогда с помощью простого запроса типа
select Tree.*, Nodes.* from Tree Left Join Nodes on Nodes.ID=Tree.NodeID
получаю все необходимые данные

отображение идёт через Query-->TDataSetDriverEh(EhLib)-->TMemTableEh(EhLib)-->TDataSource-->TDBGridEh(EhLib)

Эта связка дерево строит автоматом