Delphi XML

[kakawkin]

Здравствуйте.
Не подскажите каким образом распарсить XML файл данного вида

<xml>
    <report>
        <item s="0">
            <one a="1">
        </item>
        <item s="1">
            <one a="2">
        </item>
    </report>
</xml>

Сразу к one не обратиться. Как понимаю надо пройти по пути xml->report, потом получить кол-во item'ов в цикле (item s="0" - будет нулевой, item s="1" будем первым ) и снова в массиве ображаясь к каждому item'у доставать этот one

[evg_m]

Сразу к one не обратиться.

ну почему же. Xpath к вашим услугам
//one список всех узлов данного типа находящихся на любом уровне вложенности от текущего

пример кода
и еще один

[kakawkin]

Сделал вот такой кодЖ

Memo1.Lines.SaveToFile('1.xml');
  xml:=CoDOmDocument.Create;
  xml.async:=False;
  xml.load(ExtractFileDir(ParamStr(0))+'\1.xml');
  showmessage(xml.text);

И в итоге пусто. 2 раза из 20 получилось загрузить его - что-то глючит компонент

Прошу прощения.
Оказывается показать текст не xml.text как может показаться а xml.xml

[Replicant]

Юзайте TXMLDocument