Как парсить xml в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

uses
  XMLDoc, XMLIntf;

procedure ParseXML(const FileName: string);
var
  XMLDoc: IXMLDocument;
  Node, ChildNode: IXMLNode;
  I: Integer;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.LoadFromFile(FileName);
  XMLDoc.Active := True;

  // Получаем корневой узел документа
  Node := XMLDoc.DocumentElement;

  // Обходим дочерние узлы
  for I := 0 to Node.ChildNodes.Count - 1 do
  begin
    ChildNode := Node.ChildNodes[I];
    // Извлекаем данные из дочернего узла
    ShowMessage(ChildNode.Attributes['id']);
    ShowMessage(ChildNode.ChildNodes['name'].Text);
    ShowMessage(ChildNode.ChildNodes['email'].Text);
  end;
end;