(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: HCkXml;
success: Boolean;
child: HCkXml;

begin
xml := CkXml_Create();

// The sample input XML is available at http://www.chilkatsoft.com/data/fruit.xml
success := CkXml_LoadXmlFile(xml,'qa_data/xml/fruit.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    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 := CkXml_FindChild(xml,'meat');
if (CkXml_getLastMethodSuccess(xml) = False) then
  begin
    Memo1.Lines.Add('No direct child having the tag "meat" was found.');
  end
else
  begin
    Memo1.Lines.Add('Content = ' + CkXml__content(child));
    CkXml_Dispose(child);
  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 := CkXml_FindChild2(xml,'meat');
if (success = True) then
  begin
    // Success!  The xml object now references the found child.
    Memo1.Lines.Add('Content = ' + CkXml__content(xml));
    // Restore the reference back to the parent.
    success := CkXml_GetParent2(xml);
  end
else
  begin
    Memo1.Lines.Add('No direct child having the tag "meat" was found.');
  end;

CkXml_Dispose(xml);

end;