Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Вниз

работа с TTreeView, народ очень надо...   Найти похожие ветки 

← →
SVM   (2002-06-16 01:18) [0]

Имеется файл B-дерева тип: file of TPage
TPage = record
Number: array[1..2*N] of integer;//какойто ключ
Ind: array[1..2*N] of integer;//его индекс в индексном фа
Sons: array[1..2*N+1] of integer;// указатели на индексы сын-ей
end;

Необходимо построить дерево с помощью компонента TTreeView...
Заранее благодарен...
З.Ы. Мне бы поскорее его сделать надо..

---

← →
~Rand~   (2002-06-16 09:15) [1]

Удалено модератором

---

← →
aus   (2002-06-16 10:41) [2]

А что TreeView должно отображать?

---

← →
GOOFFY   (2002-06-16 10:44) [3]

Удалено модератором

---

← →
~Rand~   (2002-06-16 13:05) [4]

Удалено модератором

---

← →
MBo   (2002-06-16 13:28) [5]

Procedure filltree(tv:ttreeview; node:ttreenode; page:tpage);
var newnode:ttreenode;
i:integer;
begin
NewNode := TV.Items.AddChild(Node,page.caption);
for i := 0 to page.Count - 1 do
filltree(tv, newnode, page.sons[i]);
end;

вызов
filltree(Treeview1,nil,RootPage);

---

← →
SVM   (2002-06-16 21:36) [6]

Все я сделал это Спасибо тебе MBo за помощь...
окнчательный вариант:
Procedure filltree(var F: TFileTree; node:ttreenode; Position: integer);
var
newnode:ttreenode;
i:integer;
page: TPage;
begin
if Position > FileSize(F)-1 then exit;
seek(F, Position);
read(F, Page);
NewNode := Viewer.TV.Items.AddChild(Node,IntToStr(Position));
inc(Position);
for i := 1 to NumberOfSons(page) do
begin
//проверка на несуществование сына
if page.Sons[i] = -1 then continue;
filltree(F, newnode, page.sons[i]);
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c