OpenXML - NodeValues auslesen funktioniert nicht

[marabu]

Hallo Sebastian,

es ist manchmal sauberer mit Elementen zu arbeiten:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  doc: TDomDocument;
  nl: TDomNodeList;
  e: TDomElement;
  i: Integer;
begin
  with OpenDialog do
    if Execute then
    begin
      doc := XmlToDomParser.FileToDom(FileName);

      nl := doc.getElementsByTagName('Device');
      for i := 0 to Pred(nl.length) do
      begin
        e := nl.item(i).FindFirstChildElement;
        while Assigned(e) do
        begin
          ShowMessage(Format('%s: "%s"', [e.TagName, e.TextContent]));
          e := e.FindNextSiblingElement;
        end;
      end;
      doc.Free;
    end;
end;

Die von dir entdeckten Textknoten sind eigentlich Enkel und keine Kinder, aber das geht bei dem Zugriff über childNodes verloren.

Grüße vom marabu