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