Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Василий С
0 / 0 / 0
Регистрация: 09.02.2015
Сообщений: 52
#1

Бинарное дерево из указателей и Treeview - Delphi

12.01.2016, 20:54. Просмотров 332. Ответов 2
Метки нет (Все метки)

Есть бинарное дерево из вот таких узлов:
Delphi
1
2
3
4
5
6
7
8
type
  TData = Integer;
  TPNode = ^TNode;
 
  TNode = record
    Data: TData;
    PLeft, PRight: TPNode;
  end;
Есть ли простой способ отобразить его в treeview?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2016, 20:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Бинарное дерево из указателей и Treeview (Delphi):

Бинарное дерево. - Delphi
Помогите пожалуйста написать программный код. Построить бинарное дерево. Hаписать функцию или пpоцедуpу, котоpая заменяет в деpеве T...

Бинарное дерево - Delphi
Доброго времени суток, есть следующее задание: Задание 5. Бинарное дерево Разработать программу, реализующую алгоритм бинарного...

Бинарное дерево - Delphi
Посчитать количество листьев в бинарном дереве: а)Не рекурсивно б)Рекурсивно Помогите,завтра уже сдавать надо...

Бинарное дерево - Delphi
Есть несколько вопросов: 1) Что такое рандомизированное бинарное дерево, чем оно отличается от обычного дерева, для чего делается...

Сформировать бинарное дерево - Delphi
Сформировать идеально сбалансированное дерево, элементами которого являются числа, вводимые с клавиатуры

Бинарное упорядоченное дерево - Delphi
Прошу помощи ибо сам не чего не понимаю.Нужно реализовать бинарное дерево добавить и удалить элементы. Пожалуйста кто чем может помогите.

2
mss
2599 / 2255 / 250
Регистрация: 24.12.2010
Сообщений: 13,725
12.01.2016, 21:20 #2
дерево проще сразу в тривью сформировать
0
Василий С
0 / 0 / 0
Регистрация: 09.02.2015
Сообщений: 52
17.01.2016, 21:55  [ТС] #3
Нашел ответ (вдруг когда-нибудь пригодится)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure PrintTree(treenode: TTreeNode; root: TPNode);
var
  newnode: TTreeNode;
begin
  if Assigned(root) then
    with Form1 do
    begin
      newnode := TreeView1.Items.AddChild(treenode, inttostr(root^.Data));
      PrintTree(newnode, root^.PLeft);
      PrintTree(newnode, root^.PRight);
    end;
end;;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2016, 21:55
Привет! Вот еще темы с ответами:

Строки и Бинарное дерево поиска - Delphi
Доброго времени суток Уважаемые программисты! Подскажите как реализовать следующую задачу с помощью бинарного дерева, а именно как...

Создать сортированное бинарное дерево - Delphi
Создать сортированное бинарное дерево. Разработать рекурсивную процедуру подсчета положительных и отрицательных элементов в узлах правого и...

Как прочитать бинарное дерево из файла? - Delphi
Здравствуйте! Функцию экспорта вроде сделал, а вот как прочитать это дерево обратно из файла - не знаю. Уж что только не пробовал.....

Бинарное дерево поиска: определение высоты - Delphi
помогите, пожалуйста, с задачей на Delphi: "Реализовать бинарное дерево поиска с интерфейсом для добавления, удаления узлов, и печати, с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru