Aus CSV/StringList XML erstellen

[Grolle]

Hallo,

hat sich erledigt. Habe den Fehler gefunden und es jetzt wie folgt gelöst:

Delphi-Quellcode:

      for j := 0 to navigationData.Count-1 do
        begin
        navigationArray := explode(';',navigationData[j]);
        if navigationArray[0] <> '' then
          begin
            if lng.ChildNodes.FindNode(navigationArray[0]) = nil then
              mainNav := lng.AddChild(navigationArray[0])
            else mainNav := lng.ChildNodes.FindNode(navigationArray[0]);
          end;

        if navigationArray[1] <> '' then
          begin
            if mainNav.ChildNodes.FindNode(navigationArray[1]) = nil then
              level1 := mainNav.AddChild(navigationArray[1])
            else level1 := mainNav.ChildNodes.FindNode(navigationArray[1]);
          end;

        if navigationArray[2] <> '' then
          begin
            if level1.ChildNodes.FindNode(navigationArray[2])= nil then
              level2 := level1.AddChild(navigationArray[2])
            else level2 := level1.ChildNodes.FindNode(navigationArray[2]);
          end;

        if navigationArray[3] <> '' then
          begin
            if level2.ChildNodes.FindNode(navigationArray[3])= nil then
              level3 := level2.AddChild(navigationArray[3]);
          end;
        end;

Viele Grüße ...