XML.Document > взять значения соотв нодов?

[XerSon]

Всем Привет,

есть xml документ:

<?xml version="1.0" encoding="utf-8" ?>
<DATA>
 <SECTION ID="534">
  <INFO>
   <NODE NAME="Dates" VALUE="518c0" TYPE="DWORD" />
   <NODE NAME="Status" VALUE="8" TYPE="DWORD" />
   <NODE NAME="Types" VALUE="24" TYPE="STRING" />
  </INFO>
 </SECTION>
</DATA>

Как прочитать значения данных нодов: Dates, Status, Types?

Dates: 518c0
Status: 8
Types: 24

Пишу так:

EditDate.Text := (XMLDocument.DocumentElement.ChildNodes['DATA'].Attributes['Dates']);  // не работает

[Rififi]

получаешь список нодов

XMLNodeList list = XMLDocument.DocumentElelemnt.Select Nodes('//node[@name]/@value');

дальше в цикле раскручиваешь список, смотришь на поле Nodevalue

[XerSon]

Сообщение от Rififi

получаешь список нодов

XMLNodeList list = XMLDocument.DocumentElelemnt.Select Nodes('//node[@name]/@value');

дальше в цикле раскручиваешь список, смотришь на поле Nodevalue

Знал бы как, раскрутил бы. Можно на примере объяснить?

[XerSon]

var
  i: Integer;
  InfoNode: IXMLNode;
begin
  XMLDocument1.LoadFromXML(Memo1.Text);
  if XMLDocument1.IsEmptyDoc then
    raise Exception.Create('XML is Empty');
  // определяемся с тем что надо найти
  // ищем узел INFO
  InfoNode := XMLDocument1.DocumentElement.ChildNodes.FindNode('INFO');
  if Assigned(InfoNode) then
    // раз нашли - пробегаемся по всем дочерним узлам
    for i := 0 to InfoNode.ChildNodes.Count - 1 do
    begin
      // нашли узел - выводим значения > Edit's
      Edit1.Text := InfoNode.ChildNodes[i].ChildValues['Dates'];
      Edit2.Text := InfoNode.ChildNodes[i].ChildValues['Status'];
      Edit3.Text := InfoNode.ChildNodes[i].ChildValues['Types'];
    end;
end;

Не чего не выводит.
Что делаю не так?

[FaTaL]

Вот так не пойдёт?

var
  i : integer;
  s : array [0..2] of string;
begin
  XMLDocument1.Active := true;
  XMLDocument1.LoadFromXML (Memo1.Text);
  for I := 0 to XMLDocument1.DocumentElement.ChildNodes['SECTION'].ChildNodes['INFO'].ChildNodes.Count - 1 do
    begin
      s[i] := VarToStr(XMLDocument1.DocumentElement.ChildNodes['SECTION'].ChildNodes['INFO'].ChildNodes[i].Attributes['VALUE']);
    end;

  Edit1.Text := s[0];
  Edit2.Text := s[1];
  Edit3.Text := s[2];
  XMLDocument1.Active := false;
end;

[XerSon]

Все ок, Спасибо!