(Delphi ActiveX) Find Direct Child with Specific Tag

Demonstrates how to find a direct child having a specific tag.

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

<root>
    <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>
</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;
success: Integer;
child: IChilkatXml;

begin
xml := TChilkatXml.Create(Self);

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

// Find the direct child node having the tag "meat", and 
// return a new instance of the XML object referencing the
// child node, if found.
child := xml.FindChild('meat');
if (xml.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('No direct child having the tag "meat" was found.');
  end
else
  begin
    Memo1.Lines.Add('Content = ' + child.Content);

  end;

// The same can be accomplished without creating a new 
// XML object instance.  Instead, the FindChild2 method updates
// the caller's internal reference to the found child, if successful.
success := xml.FindChild2('meat');
if (success = 1) then
  begin
    // Success!  The xml object now references the found child.
    Memo1.Lines.Add('Content = ' + xml.Content);
    // Restore the reference back to the parent.
    success := xml.GetParent2();
  end
else
  begin
    Memo1.Lines.Add('No direct child having the tag "meat" was found.');
  end;
end;