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

Вниз

Как построить дерево процессов?   Найти похожие ветки 

← →
Zhirnov Maxim   (2003-09-19 11:45) [0]

Здравствуйте.
Подскажите, пожалуйста, как построить дерево выполняющихся процессов. Список процессов я получил, а вот с деревом (с использованием компонента TreeView), что-то никак не могу разобраться.

---

← →
Zhirnov Maxim   (2003-09-19 13:55) [1]

UP

---

← →
VMcL   (2003-09-19 14:41) [2]

F1, example(s)

---

← →
Master   (2003-09-19 14:53) [3]

Если у тебя есть в масиве(списке) ID родителя, то замени на index в масиве. После примерно так:
procedure TDevices.FillChildren(Node: TTreeNode);
var
i: Integer;
begin
if Node = TreeRoot then
begin
for i := 0 to High(ptrSeadmed^) do
with ptrSeadmed^[i] do
if (ParentID = -1) and (Lopp = 0) then
FillChildren(Tree.Items.AddChildObject(Node, Nimetus, pointer(i)));
end else begin
for i := 0 to High(ptrSeadmed^) do
with ptrSeadmed^[i] do
if (ParentID = integer(Node.Data)) and (Lopp = 0) then
FillChildren(Tree.Items.AddChildObject(Node, Nimetus, pointer(i)));
end;

end;

---

← →
Е-Моё имя   (2003-09-19 19:18) [4]

> Как построить дерево процессов?

все перепутал! ;))
строют ДОМ!
а дерево-содють!

---

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

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

Наверх

Память: 0.44 MB
Время: 0.008 c