Ganz einfach, du musst das
rekursiv programmieren.
Schreib eine Prozedur, die einen TreeNode und ein XMLElement als Parameter entgegennimmt.
Delphi-Quellcode:
procedure ShowNode(parent:TTreeNode; element:XMLElement1);
var
newnode : TTreeNode;
begin
// pseudocode - soll nur das Prinzip zeigen
newnode := parent.AddChildNode(element.Name1);
// Schleife über alle Attribute
for i:=0 to element.AttributCount-1 do
newnode.AddChildNode(element.Attribute[i].Name + '=' + element.Attribute[i].Value);
// Schleife über alle Child-Elemente
for i:=0 to element.ChildCount-1 do
ShowNode(newnode, element.ChildNodes[i]); // der rekursive Aufruf
end;
PS: es gibt noch andere Möglichkeiten; wenn's noch aktuell ist, dann frag ruhig...