VPF::TTreeView - вывод из базы - Форум программистов

suomi

Дата 9.11.2007, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Народ помогите сделать вывод дерева с помощью рекурсии. Не получается кокретно формирование узлов. А конктретно определение узла-родителя. Должна быть какая-то проверка, но не понимаю куда ее вставить. Вот код мой

Код


procedure TForm1.OutBranch(Level: integer; idnode: integer);
var Q: TOraQuery;
  Node2: TTreeNode;
begin
  Q := TOraQuery.Create(Application);
  Q.SQL.Text := 'select * from Structur where IDPARENT=' + IntToStr(idnode);
  Q.Open;
  while not Q.Eof
    do begin
    if idnode = 0 then begin
      Node := treeView1.Items.AddObject(Node, Q.Fields.FieldByName('NodeName').AsString, Pointer(Q.Fields.FieldByName('idNode').AsInteger));
      showMessage('1' + IntToStr(k));
    end
    else begin
      Node2 := treeView1.Items.AddChildObject({treeView1.Items[k]}Node, Q.Fields.FieldByName('NodeName').AsString, Pointer(Q.Fields.FieldByName('idNode').AsInteger));
    end;
    Memo1.Lines.Add(StringOfChar(' ', Level) + Q.FieldByName('NODENAME').AsString);
    OutBranch(Level + 1, Q.FieldByName('IDNODE').Value);
    Q.Next;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  treeView1.Items.BeginUpdate;
  OutBranch(0, 0);
  treeView1.Items.EndUpdate;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »