Delphi DLL

Iterate over Direct Child Nodes by Index

See more XML Examples

Demonstrates some ways to iterate over direct child nodes by index.

The input XML, available at http://www.chilkatsoft.com/data/get_child.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>

Delphi 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
success: Boolean;
xml: HCkXml;
child: HCkXml;
i: Integer;

begin
success := False;

xml := CkXml_Create();

// The sample input XML is available at http://www.chilkatsoft.com/data/get_child.xml
success := CkXml_LoadXmlFile(xml,'get_child.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

// The NumChildren property contains the number of direct
// child nodes.  Note: The child nodes under "xyz" are NOT
// direct children of "root".  Therefore, the "root" node has
// 7 direct children
Memo1.Lines.Add('NumChildren = ' + IntToStr(CkXml_getNumChildren(xml)));

// Iterate over the direct children by index. The first child
// is at index 0.

for i := 0 to CkXml_getNumChildren(xml) - 1 do
  begin
    //  access the tag and content directly by index:
    Memo1.Lines.Add(IntToStr(i) + ': ' + CkXml__getChildTagByIndex(xml,i) + ' : ' + CkXml__getChildContentByIndex(xml,i));

  end;

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

// Do the same as the above loop, but get the child node
// and access the Tag and Content properties:
for i := 0 to CkXml_getNumChildren(xml) - 1 do
  begin
    child := CkXml_GetChild(xml,i);
    Memo1.Lines.Add(IntToStr(i) + ': ' + CkXml__tag(child) + ' : ' + CkXml__content(child));
    CkXml_Dispose(child);
  end;

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

// Do the same as the above loop, but instead of creating
// a new object instance for each child, call GetChild2 to
// update the object's reference instead.
for i := 0 to CkXml_getNumChildren(xml) - 1 do
  begin
    // Navigate to the Nth child.  
    success := CkXml_GetChild2(xml,i);
    Memo1.Lines.Add(IntToStr(i) + ': ' + CkXml__tag(xml) + ' : ' + CkXml__content(xml));
    // Navigate back up to the parent:
    success := CkXml_GetParent2(xml);
  end;

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

// Notice that the Content of the "xyz" node is empty.  This is correct.
// The "xyz" node has no Content, but 2 direct children

CkXml_Dispose(xml);

end;