Hallo Zusammen,
wie immer hat der Uwe die passende Lösung.
Peter, deine Varianten hatte ich alle schon ausprobiert. In meinem Fall funktioniert es nicht. Es funktioniert kein Assigned, VarIsNull, <> Null einfach nichts geht.
so hat es jetzt funktioniert:
Delphi-Quellcode:
if not aNode.DOMNode.HasChildNodes or ((aNode.DOMNode.childNodes.length = 0) and (aNode.DOMNode.childNodes[0].nodeType in [TEXT_NODE, CDATA_SECTION_NODE]))
then Memo1.Lines.Add(t + 'n: ' + aNode.NodeName + ' : ' +aNode.NodeValue)
else Memo1.Lines.Add(t + 'n: ' + aNode.NodeName);
Alles perfekt, herzlichen Dank für die Hilfe und einen schönen Tag.
Gruß Kostas