[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 ом работать.Вот допустим я в него записал всё что нужно,как потом к этим записям обратиться?????

[thxu2]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  NodeDetails: PNodeDetails;
  TreeViewIndex: LongInt;
begin
  adoquery1.Open;
  while not adoquery1.Eof do
    begin
      New(NodeDetails);
      NodeDetails^.Id:=       adoquery1.FieldByName('Id').AsInteger;
      NodeDetails^.ParentId:= adoquery1.FieldByName('id_parent').AsInteger;
      NodeDetails^.Name:=     adoquery1.FieldByName('Class_name').AsString;
    
      adoquery1.Next;
    end;
 adoquery1.Close;
end;

end.

Админ: Пользуемся тегами для оформления кода!

Допустим я так записал в рекорд данные. Они где-то хранятся ???как мне пройтись по ним чтобы построить дерево???????

[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)

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

[poli-smen]

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

procedure TForm1.FormActivate(Sender: TObject);
var
NodeDetails: PNodeDetails;
TreeViewIndex: LongInt;
begin
adoquery1.Open;
while not adoquery1.Eof do
begin
New(NodeDetails);
NodeDetails^.Id:= adoquery1.FieldByName('Id').AsInteger;
NodeDetails^.ParentId:= adoquery1.FieldByName('id_parent').AsInteger;
NodeDetails^.Name:= adoquery1.FieldByName('Class_name').AsString;

adoquery1.Next;
end;
adoquery1.Close;
end;

end.



Допустим я так записал в рекорд данные. Они где-то хранятся ???как мне пройтись по ним чтобы построить дерево???????

Данные хранятся в памяти, но пройтись по ним не получится, так как ты потерял все ссылки на них. Ссылки (указатели) на эти данные нужно куда-то сохранять, например в массив, в TList, в TStringList и т.п.

Пример с использованием TList:

Код:

var
  NodeDetails: PNodeDetails;
  TreeViewIndex: LongInt;
  List: TList;
  i: Integer;
begin
  List := TList.Create;
  try
    ADOQuery1.Open;
    ADOQuery1.First;
    while not ADOQuery1.Eof do
    begin
      New(NodeDetails);
      List.Add(NodeDetails); // Добавляем в список новую запись
      NodeDetails^.Id :=       ADOQuery1.FieldByName('Id').AsInteger;
      NodeDetails^.ParentId := ADOQuery1.FieldByName('id_parent').AsInteger;
      NodeDetails^.Name :=     ADOQuery1.FieldByName('Class_name').AsString;
      ADOQuery1.Next;
    end;
    ADOQuery1.Close;

    // Теперь можно пройтись по всем сохранённым записям и что-то с ними сделать
    for i := 0 to List.Count - 1 do
    begin
      NodeDetails := List[i];
      // Что-то делаем с очередной записью
    end;

  finally
    // В конце главное не забыть освободить память занятую под данные:
    for i := 0 to List.Count - 1 do Dispose(PNodeDetails(List[i]));
    List.Free; // И освободить сам список
  end;
end;

[thxu2]

Спасибо!!!Буду думать .

[Lost_Fish]

Так-то не очень удобно хранить дерево в таблице а связанные данные ещё где-то

[Pyro]

Код:

      NodeDetails^.Id :=       ADOQuery1.FieldByName('Id').AsInteger;
      NodeDetails^.ParentId := ADOQuery1.FieldByName('id_parent').AsInteger;
      NodeDetails^.Name :=     ADOQuery1.FieldByName('Class_name').AsString;

если идея хранить данные отдельно – потому что они разные, то можно для каждого 'Class_name' создать свою таблицу с таким именем и нужными полями.
или можно в той же таблице текстовое поле data, а там хранить json какой-нибудь