(Delphi ActiveX) XML SearchForTag Method

Demonstrates the SearchForTag and SearchForTag2 methods.

The input XML, available at http://www.chilkatsoft.com/data/fruitSearch.xml, is this:

<root>
    <searchRoot>
        <fruit color="red">apple</fruit>
        <fruit color="green">pear</fruit>
        <veg color="orange">carrot</veg>
        <meat animal="cow">beef</meat>
        <xyz>
            <fruit color="blue">blueberry</fruit>
            <veg color="green">broccoli</veg>
        </xyz>
        <fruit color="purple">grape</fruit>
        <cheese color="yellow">cheddar</cheese>
    </searchRoot>
    <fruit color="red">strawberry</fruit>
    <fruit color="orange">peach</fruit>
</root>

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: TChilkatXml;
xSearchRoot: IChilkatXml;
xBeginAfter: IChilkatXml;
xFound: IChilkatXml;
success: Integer;
xSearch: IChilkatXml;

begin
xml := TChilkatXml.Create(Self);

// The sample input XML is available at http://www.chilkatsoft.com/data/fruitSearch.xml
success := xml.LoadXmlFile('qa_data/xml/fruitSearch.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(xml.LastErrorText);
    Exit;
  end;

// Search the sub-tree rooted at "searchRoot"
xSearchRoot := xml.FindChild('searchRoot');

// Search for all nodes having the tag "fruit"
xBeginAfter := xSearchRoot.GetSelf();
xFound := xSearchRoot.SearchForTag(xSearchRoot,'fruit');
while (xSearchRoot.LastMethodSuccess = 1) do
  begin

    Memo1.Lines.Add(xFound.Content);

    xBeginAfter := xFound;
    xFound := xSearchRoot.SearchForTag(xBeginAfter,'fruit');
  end;

Memo1.Lines.Add('--------------------------');

// ---------------------------------------------------------------------------------
// Now do the same, but instead use SearchForTag2
// which updates the internal reference of the caller instead
// of returning the found node.

xBeginAfter := xSearchRoot.GetSelf();
xSearch := xSearchRoot.GetSelf();

success := xSearch.SearchForTag2(xBeginAfter,'fruit');
while success = 1 do
  begin

    Memo1.Lines.Add(xSearch.Content);

    // Copy the internal references so that the next search
    // begins after the found node.
    xBeginAfter.CopyRef(xSearch);
    xSearch.CopyRef(xSearchRoot);

    success := xSearch.SearchForTag2(xBeginAfter,'fruit');
  end;
end;