Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



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