1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  cText : string;
  CurItem: TTreeNode;
begin
  CurItem := TreeView1.Items.GetFirstNode;
  while CurItem <> nil do
  begin
    cText:=CurItem.Text;
    // Nodetext kann jetzt abgespeichert werden
    CurItem := CurItem.GetNext;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function NodeGetChildLevel(Tree: TTreeView; Node:TTreeNode):Integer;     
var
  tmpNode : TTreeNode;
begin
  Result := 0;
  tmpNode := Node;
  while tmpNode<> nil do begin
    Result := Result + 1;
    tmpNode := tmpNode.Parent;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function NodeGetMainNodeLevel(Tree: TTreeView; Node:TTreeNode):Integer;        
var
  tmpNode : TTreeNode;
begin
  Result := 0;
  tmpNode := Tree.Items[0];
  while tmpNode <> nil do begin
    if tmpNode <> nil then
      if tmpNode.Parent = nil then Result := Result + 1;
    if tmpNode = Node then Exit;
    tmpNode := tmpNode.GetNext;
  end;
end;