(Delphi) XML SearchForAttribute Method

Demonstrates the SearchForAttribute method.

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></root>
</root>

Download Chilkat XML ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATXMLLib_TLB,
    OleCtrls;

...

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

begin
xml := TChilkatXml.Create(Self).ControlInterface;

//  The sample input XML is available at http://www.chilkatsoft.com/data/fruitSearch.xml
success := xml.LoadXmlFile('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 "fruit" nodes having a color attribute
//  where the name of the color ends in "e"
xBeginAfter := nil;
xFound := xSearchRoot.SearchForAttribute(xBeginAfter,'fruit','color','*e');
while not (xFound = nil ) do
  begin

    Memo1.Lines.Add(xFound.Content + ': '
         + xFound.GetAttrValue('color'));

    xBeginAfter := xFound;
    xFound := xSearchRoot.SearchForAttribute(xBeginAfter,'fruit','color','*e');
  end;

//  The correct output is:
//  grape: purple
//  blueberry: blue

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

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

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

success := xSearch.SearchForAttribute2(xBeginAfter,'fruit','color','*e');
while success = 1 do
  begin

    Memo1.Lines.Add(xSearch.Content + ': '
         + xSearch.GetAttrValue('color'));

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

    success := xSearch.SearchForAttribute2(xBeginAfter,'fruit','color','*e');
  end;


end;