Aus CSV/StringList XML erstellen

[Grolle]

Hallo,

irgendwo hat sich ein Fehler eingeschlichen und ich find ihn einfach nicht
Also aus dem Array:

Delphi-Quellcode:

Programmierung;Web;Google;Gears;Google_Gears_TecFeed
Programmierung;Web;Google;Gears;Google_Gears_TecFeed
Programmierung;Web;Google;Web_API;Google_Web_API
Programmierung;Web;Google;Web_API;Google_Web_API
Programmierung;Web;JavaScript;Exploring_JavaScript;Exploring_Javascript
Programmierung;Web;JavaScript;Frameworks;Dojo_Toolki
Programmierung;Windows;Javat;;Java_2_EE
Programmierung;Windows;Cplusplus;;C++
Programmierung;Windows;Java;;Java_6_programmierhandbuch
Sonstiges;Dateisystem;;;Dateiformate
Sonstiges;Servertechnik;Linux;;Apache_Axis2

mach XML mit folgendem Code (Attribute rausgelassen):

Delphi-Quellcode:

     for j := 0 to navigationData.Count-1 do
        begin
         navigationArray := explode(';',navigationData[j]);
        if (navigationArray[0] <> '') and (lng.ChildNodes.FindNode(navigationArray[0]) = nil) then
          begin
            menuCount := menuCount + 1;
            mainNav := lng.AddChild(navigationArray[0]);
          end;
        if (navigationArray[1] <> '') and (mainNav.ChildNodes.FindNode(navigationArray[1]) = nil)  then
          begin
            level1 := lng.ChildNodes.FindNode(navigationArray[0]);
            attribute := level1.AddChild(navigationArray[1]);
          end;
        if (navigationArray[2] <> '') and (level1.ChildNodes.FindNode(navigationArray[2])= nil) then
          begin
            level2 := level1.ChildNodes.FindNode(navigationArray[1]);
            attribute := level2.AddChild(navigationArray[2]);
          end;
        if (navigationArray[3] <> '') and (level2.ChildNodes.FindNode(navigationArray[3])= nil) then
          begin
            level3 := level2.ChildNodes.FindNode(navigationArray[2]);
            attribute := level3.AddChild(navigationArray[3]);
          end;
        end;

Ergebnis:

Delphi-Quellcode:

<Programmierung text="Programmierung" url="index_de_1.html" frame="dummy">
  <Web text="Web" frame="dummy">
    <Google text="Google" frame="dummy">
      <Gears text="Gears" frame="Google_Gears_TecFeed.pdf" /> 
      <Gears text="Gears" frame="Google_Gears_TecFeed.pdf" /> 
      <Web_API text="Web API" frame="Google_Web_API.pdf" /> 
      <Web_API text="Web API" frame="Google_Web_API.pdf" /> 
    </Google>
    <Google text="Google" frame="dummy" /> /////////////////// woher und warum?
    <Google text="Google" frame="dummy" /> /////////////////// woher und warum?
    <Google text="Google" frame="dummy" /> /////////////////// woher und warum?
    <JavaScript text="JavaScript" frame="dummy">
      <Exploring_JavaScript text="Exploring JavaScript" frame="Exploring_Javascript.pdf" /> 
      <Frameworks text="Frameworks" frame="Dojo_Toolki.pdf" /> 
    </JavaScript>
    <JavaScript text="JavaScript" frame="dummy" /> /////////////////// woher und warum?
  </Web>
<Windows text="Windows" frame="dummy">
  <Javat text="Javat" frame="Java_2_EE.pdf" /> 
  <Cplusplus text="Cplusplus" frame="C++.pdf" /> 
  <Java text="Java" frame="Java_6_programmierhandbuch.pdf" /> 
  </Windows>
</Programmierung>
<Sonstiges text="Sonstiges" url="index_de_2.html" frame="dummy">
  <Dateisystem text="Dateisystem" frame="Dateiformate.pdf" /> 
  <Servertechnik text="Servertechnik" frame="dummy">
    <Linux text="Linux" frame="Apache_Axis2.pdf" /> 
  </Servertechnik>
</Sonstiges>

Viele Grüße ...