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

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

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

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

← →
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;

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

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

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