Приветствую вас, хранящие данные в базах! 
Я только начал изучать базы, как столкнулся с проблемой, причем весьма непонятной: нужно сформировать древовидную структуру на основе данных из базы. То есть читаю из определенных полей данные которые указывают кто в кого вложен и формирую дерево.
Пример:
В базе есть несколько папок и выглядит их структура так:
| Код |
- Bookmarks
- Mozilla
- Home page
My bookmarks
Music
+Video
|
А вот что я наваял:
| Код |
procedure TForm1.ImportTable(parentId: integer);
begin
Table1.First;
while not Table1.eof do
begin
if Table1.fieldbyname('parent').AsInteger=parentId then//Если есть нужная запись, значит нашли что-то вложенное
if Table1.fieldbyname('type').AsInteger=2 then //нашли папку
begin
...Add(ZTable1.fieldbyname('title').AsString);//Добавляем папку в дерево
ImportTable(ZTable1.FieldbyName('id').AsInteger);//Ищем уже вложения в найденную папку
end
else //нашли ссылку
begin
//с папками пока не разобрался, так что ссылки пока идут лесом
end;
Table1.Next;
end;
end;
|
В результате я получаю:
| Код |
- Bookmarks
- Mozilla
- Home page
|
То есть находит только папку Mozilla и вложенные в нее папки, а остальные нет.
Что-то мне подсказывает, что я чего-то не понимаю и ошибся. Помогите исправить положение и не пинайте сильно за тупой код! |
