Парсинг XML

[InTacto]

Работа с xml реализована в кодеюните 6224 XML DOM Management (проверка существования нодов, получения их значений и атрибутов, дочерних нодов).
И да вложенность получается большая. Сам сейчас воюю с ними.

   //пример проверки 
  IF FindNode(XMLRootNode, 'Parameters', XMLNodeFound) THEN BEGIN
    XMLRootNode := XMLNodeFound;

    IF FindNode(XMLRootNode, 'PeriodStartingDate', XMLNodeFound) THEN BEGIN
      XMLRootNode := XMLNodeFound;

      // получение значения
      IF (STRLEN(XMLNodeFound.text) > 0) THEN
        curr:=XMLNodeFound.text              
    
    .....
    END 
  END;

Name DataType Subtype Length
xmlNodeFound Automation 'Microsoft XML, v6.0'.IXMLDOMNode
xmlRootNode Automation 'Microsoft XML, v6.0'.IXMLDOMNode