Hallo Interritor!
Leider hast Du nicht geschrieben, mit welchen Mitteln Du das
XML-File parst! Ich gehe deshalb mal von der TXML-Komponente von Delphi aus. Wenn Du die Datei mit der Hilfe dieser Komponente geladen hast, dann hast Du die Datei im Speicher des Rechners eigentlich schon in Baumform liegen. Über diesen Parsebaum kann man relativ einfach mittels einer rekursiven Funktion traversieren und iregendetwas machen. Ich deute den Quellcode hier nur mal kurz an:
Delphi-Quellcode:
procedure TForm1.Traversiere(Wurzel: IXMLNode);
var
i : Integer;
Knoten : IXMLNode; // aktueller Knoten
tvText : String; // Knotenwert oder Text
begin
for i := 0 to Wurzel.ChildNodes.Count - 1 do // Laufe über alle Knoten der Ebene
begin
Knoten := Wurzel.ChildNodes.Nodes[i];
if ( Knoten.NodeType = ntText) then
tvText := Knoten.NodeValue
else
begin
tvText := Knoten.NodeName;
end;
Traversiere(Knoten); // Rekursion
end;
end;
Diese Funktion stammt ursprünglich aus einem eigenem Testprogramm und muss im Programm selber mit
Traversiere(xmlDoc.DocumentElement);
gestartet werden.
Zur Lösung deines Problems würde ich in der rekursiven Funktion noch jeweils die ID des Elternknotens übergeben und vor der Rekursion das entsprechende Object kreieren.
MfG
-jryan