Новый вопрос №82501

Понедельник, 31 Марта 2014 г. 08:36 + в цитатник

Добрый день! Не получается прочитать данные из XML в XE2. Вот функция, которая возвращает ноду по имени:

code:function getNodeByName(xFile, xName : string) : IXMLNode;
var
  vXML  : IXMLDocument;
  vNode : IXMLNode;
begin
  Result := nil;
  if not FileExists(xFile) then exit;
  vXML := NewXMLDocument;
  vXML.LoadFromFile(xFile);
  Result := RecursiveFindNode( vXML.DocumentElement, xName );
end;

Рекурсивный поиск реализован вот так:[Code]function RecursiveFindNode(ANode: ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82501