Галактика в вопросах и ответах

Код: Выделить всё

<root>
<fileversion>00_11</fileversion>
</root>

Код: Выделить всё

 var xDom,hRoot,hNodeList,hNodeItem  : LongInt;
 var hNodeCount,i:integer; 
 xDom := XMLDOMDoc_New;
 XMLDOMDoc_Load(xDom,FileName);//пробуем открыть файл XML
 hRoot := XMLDOMDoc_DocumentElement(xDom);//получаем корневой элемент
 hNodeList := XMLDOMNode_Get_ChildNodes(hRoot);//получаем child корневого элемента и идем по ним циклом
 hNodeCount := XMLDOMNodeList_Get_Length(hNodeList);
 for ( i := 0; i < hNodeCount; i := i + 1 )
  {
       hNodeItem:=XMLDOMNodeList_Get_Item(hNodeList, i);
       message(XMLDOMNode_get_NodeType(hNodeItem)+'=='+XMLDOMNode_Get_NodeName(hNodeItem));
       message(XMLDOMAttribute_get_NodeValue(hNodeItem));
  }

Код: Выделить всё

 message(XMLDOMAttribute_get_NodeValue(hNodeItem));