XML Parser und verschachtelungen.

[jryan]

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