Как пробежать по XML и считать атрибуты?

← →
Erik (2003-08-12 12:11) [0]

Вот масив строк
<result MAC_address="ff:00:00:00:00:fe" id="2111816756" value="success" />
Использую SimpleXML.

← →
NAlexey © (2003-08-12 12:42) [1]

в Uses - ComObj procedure TForm1.Button1Click(Sender: TObject); var Doc, Node, Attr: Variant; I: Integer; begin Doc := CreateOleObject("Msxml2.DOMDocument.4.0"); Doc.DocumentElement := Doc.CreateElement("DATA"); Node := Doc.CreateElement("result"); Doc.DocumentElement.AppendChild(Node); Attr := Doc.CreateAttribute("MAC_address"); Attr.Value := "ff:00:00:00:00:fe"; Node.SetAttributeNode(Attr); Attr := Doc.CreateAttribute("id"); Attr.Value := "2111816756"; Node.SetAttributeNode(Attr); Attr := Doc.CreateAttribute("value"); Attr.Value := "success"; Node.SetAttributeNode(Attr); for I := 0 to Node.Attributes.Length - 1 do begin Attr := Node.Attributes.Item(I); if TVarData(Attr).VDispatch <> nil then ShowMessage(Attr.Name + " - " + Node.GetAttribute(Attr.Name)); end; end;

← →
Erik (2003-08-12 14:33) [2]

У меня загружается уже готовый XML документ. Я пользуюсь парсером SimpleXML! Создать нужный XML непроблема, у меня был пример. А вот как пробежатся по уже готовому? Мне надо перебирать не атребуты, сами узлы.

Скорее всего не смогу ответить, так как не знаю что такое SimpleXML и какие там методы. В msxml скорее всего это выглядело бы так:
var
Node: Variant;
for I := 0 to XmlDocument.DocumentElement.ChildNodes.Length - 1 do
begin
Node := XmlDocument.DocumentElement.Item(I);
//Работай с узлом
end;
Это ты пробежишся по потомкам корневого узла, для обхода дерева узлов напишешь рекурсию.

Как пробежать по XML и считать атрибуты? Найти похожие ветки