XML 파싱하기 - 2

var
  I, J: Integer;
  XMLDocument: IXMLDOMDocument;
  XMLNodeList: IXMLDOMNodeList;
  XMLChildNodeList: IXMLDOMNodeList;
  XMLTempNode: IXMLDOMNode;
begin
  XMLDocument := CoDOMDocument.Create;
  XMLDocument.loadXML('XML Data..');

  //Node 선택 
  XMLNodeList := XMLDocument.selectNodes('Node 선택..');

  //선택한 Node의 리스트
  for I := 0 to XMLNodeList.length - 1 do begin
    XMLChildNodeList := XMLNodeList.item[I].childNodes;

    //필요한 만큼의 selectNodes와 for문 반복 ..
    //가져온 Node의 Node 리스트
    for J := 0 to XMLChildNodeList.length - 1 do begin
      XMLTempNode := XMLChildNodeList.item[J]; //Node의 값

      ShowMessage(XMLTempNode.Text);
    end;
  end;
end;

2019/12/24 - [Delphi/꿀팁] - XML 파싱하기 - 1