Visio-XML mit Mischung aus Textknoten und ChildNodes

[Scurra]

Bei mir ist xmlNode.ChildNodes.Count = 3. Bei mir funktioniert es so:

Delphi-Quellcode:

var
  xmlDoc: IXMLDocument;
  xmlNode: IXMLNode;
  idx: integer;
begin
  xmlDoc := newXMLDocument;
  xmlDoc.LoadFromFile(ExtractFilePath('C:\Test.xml');
  xmlNode := xmlDoc.DocumentElement.ChildNodes.Get(0);

  for idx := 0 to xmlNode.ChildNodes.Count -1 do
  begin
    if xmlNode.ChildNodes.Get(idx).NodeType = ntText then
      ShowMessage(xmlNode.ChildNodes.Get(idx).Text);
  end;
end;

Evtl. muss man noch Trim(...) verwenden o. ä.