Iterate over nodes in an XML document using SearchForTag

Download Delphi Source Code and Project Files

Source Code Listing

// This example requires Chilkat XML v3.0.0
// Scan crisp.xml for ArticleTitles and 
// create another XML document containing
// only the titles.
procedure TForm1.Example1Click(Sender: TObject);
var
  xml: IChilkatXml;
  outXml: IChilkatXml;
  node: IChilkatXml;


begin
  xml := CoChilkatXml.Create();
  outXml := CoChilkatXml.Create();


  xml.LoadXmlFile('crisp.xml');


  // Create the output XML document in-memory
  outXml.Tag := 'article_titles';


  // Iterate over ArticleTitle tags regardless of where
  // they occur in the document. Setting the first parameter
  // to 0 causes the search to begin from the document root.
  node := xml.SearchForTag(nil,'ArticleTitle');
  while (node <> nil) do
  begin
	    // NewChild returns the created child, whereas NewChild2 does not.
	    outXml.NewChild2('article',node.Content);

	    // Search for the next ArticleTitle tagged node beginning with the node
	    // just after the current node in a breadth-first document tree traversal.
	    node := xml.SearchForTag(node,'ArticleTitle');
	  end;

   outXml.SaveXml('ArticleTitles1.xml');

end;