Ich hatte genau das gleiche Problem und habe wochenlang gesucht. Durch Zufall habe ich eine Lösung gefunden die bei mir (Win 7; Delphi 2009) funtioniert.
Bei mir waren es allerdings reine Textknoten. Vielleicht hilft bei Dir auch XNode.HasAttribute(AttrName).
Delphi-Quellcode:
Vst.Clear;
Vst.BeginUpdate;
XNodeList:=Cities.ChildNodes;
for I:=0 to XNodeList.Count - 1 do
begin
Data:=TData.Create;
XNode:=XNodeList.Nodes[I];
if XNode.IsTextElement then ------> Das hat gefehlt!!!!
begin
Data.Caption:=XNode.Text;
Vst.AddChild(nil,Data);
end;
end;
Vst.EndUpdate;
DOMVendor ist
MSXML und im XMLDoc ist alles auf Standard außer doNodeAutoIndent ist auf True
Gruss Bodo