OpenXML - NodeValues auslesen funktioniert nicht

[slemke76]

Hallo,

ich verwende folgenden Source, um NodeValues auszulesen:

Delphi-Quellcode:

  uses XDom_4_1;

  .......

  DomImplementation1:=TDomImplementation.create(self);
  XmlToDomParser1:=TXmlToDomParser.create(self);
  XmlToDomParser1.DOMImpl:=DomImplementation1;
  Doc := XmlToDomParser1.ParseFile(AppDataDir +  '\Devices.xml', false);

  List:=Doc.getElementsByTagName('Device');
  if Assigned(List) and (List.length>0) then
    for i := 0 To List.length -1 do begin
      SubList:=List.item(i).childNodes;
      for j:=0 to SubList.length-1 do begin
        ShowMessage(Sublist.Item(j).NodeName+': '+SubList.Item(j).NodeValue);
      end;
    end;

  XmlToDomParser1.Free;
  DomImplementation1.Free;

In der Anzeige erscheint zwar der korrekte NodeName (z.B. "Address"), aber die NodeValue ist leer ?
Was mache ich falsch ?

Anbei noch das XML:

XML-Code:

<?xml version="1.0" encoding="UTF-8"?>
<XI>
  <Devices>
    <Device serial="339362">
      <Address>1</Address>
      <Name>Gesamt</Name>
      <Berechnet>0</Berechnet>
    </Device>
  </Devices>
</XI>

Danke,
Sebastian