Hi leutz

habe folgenden code:

zusammenfalten · markieren

Delphi-Quellcode:

          myNode := config.DocumentElement.ChildNodes.First.ChildNodes.FindNode('accdevs');
          if myNode <> nil then begin
            myNodeList := MyNOde.ChildNodes;
            for i := 0 to mynodelist.Count -1 do begin
              if accdev = MyNodeList[i].nodevalue then begin
                logfilest.add(1, 'ACCDEV: '+accdev+' found in config:'+MyNodeList[i].nodevalue);
                i2 := i2 + 1;
              end;
            end;
          end;
          myNodelist.Clear;

ich rufe diese schleife öfter auf, habe jetzt aber das problem, das er mir hier:

for i := 0 to mynodelist.Count -1 do begin nicht mehr rein geht, was habe ich falsch gemacht?

danke im voraus LG

ich glaub ich weiß warum:
beim 2. aufruf ist der mynodelist.counter auf = 0 dh. er findet keine childnodes oder?

markieren

Delphi-Quellcode:

if myNode <> nil then begin
 myNodeList := MyNOde.ChildNodes;

zur erklärung, mein xml sieht so aus:

markieren

Code:

<config>
 <device id="1">
   <accdevs>
     <accdev>1</accdev>
     <accdev>2</accdev>
   </accdevs>
 </device>
 <device id="2">
   <accdevs>
     <accdev>3</accdev>
     <accdev>4</accdev>
   </accdevs>
 </device>
</config>

mein code sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

CoInitialize(nil);
config := LoadXMLDocument('C:\test.xml');
xmlnode := config.DocumentElement.ChildNodes.First;
i3 := 0;
while (xmlnode <> nil) do begin
 i3 := i3 +1;
 if xmlnode.HasAttribute('id') then begin
   if xmlnode.Attributes['id'] = i3 then begin
      myNode := config.DocumentElement.ChildNodes.FindNode('accdevs');
      if myNode <> nil then begin
        myNodeList := MyNOde.ChildNodes;
        for i := 0 to mynodelist.Count -1 do begin
           logfilest.add(1, 'accvalue: '+MyNodeList[i].nodevalue);
           if accdev = MyNodeList[i].nodevalue then begin
               logfilest.add(1, 'ACCDEV: '+accdev+' found in config:'+MyNodeList[i].nodevalue);
               i2 := i2 + 1;
           end;
        end;
      end;
      myNodelist.Clear;
  end;
  xmlnode := xmlnode.NextSibling;
end;

warum liest er mir die accdevs nur für id = 1 aus? und nicht für id 2?

dane und lg

Geht er denn ein zweites mal in die while-Schleife hinein?

hier geht er noch rein

markieren

Delphi-Quellcode:

if myNode <> nil then begin
 myNodeList := MyNOde.ChildNodes;

Ich denke, Du suchst wieder im ersten Knoten, der aber inzwischen geleert ist.
myNode := config.DocumentElement.ChildNodes.FindNode('accdevs'); Lass Dir mal das XML-Dokument nach dem ersten Schleifendurchlauf anzeigen.

das stimmt!
wie wäre das zu realisieren? so vielleicht?

mynode := config.DocumentElement.NextSibling;

Kann ich nicht sicher sagen (da die XML-Kompos immer etwas unterschiedlich zu handhaben sind).
Wenn Die Struktur immer in der festgelegten Form vorliegt geht vielleicht auch so etwas wie mynode := XmlNode.ChildNodes[0].ChildNodes[0]

die Struktur ist immer die selbe, weiß jedoch nicht wo ich das implementieren soll....

habe den fehler gefunden:
myNode := xmlnode.ChildNodes.FindNode('accdevs'); diese Zeile machts möglich...