(Delphi DLL) XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method.

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
success: Boolean;
xml: HCkXml;
orderBillingInfo: HCkXml;
index: Integer;
xCustId: HCkXml;

begin
xml := CkXml_Create();

CkXml_putTag(xml,'order');
CkXml_NewChild2(xml,'order_billing_info|price_list','Listino Italia');
CkXml_NewChild2(xml,'order_billing_info|price_list_id','1');
CkXml_NewChild2(xml,'order_billing_info|first_name','Francesco');

Memo1.Lines.Add(CkXml__getXml(xml));

// We now have the following XML:

// <?xml version="1.0" encoding="utf-8"?>
// <order>
//     <order_billing_info>
//         <price_list>Listino Italia</price_list>
//         <price_list_id>1</price_list_id>
//         <first_name>Francesco</first_name>
//     </order_billing_info>
// </order>

// Get the "order_billing_info" element
orderBillingInfo := CkXml_FindChild(xml,'order_billing_info');

// Call NewChildAfter to add an XML element (customer_id> after <price_list_id>
// First get the index of the element price_list_id
index := CkXml_TagIndex(orderBillingInfo,'price_list_id');
Memo1.Lines.Add('index = ' + IntToStr(index));

// Add the "customer_id" element just after specified index.
xCustId := CkXml_NewChildAfter(orderBillingInfo,index,'customer_id','1234');
CkXml_Dispose(xCustId);
CkXml_Dispose(orderBillingInfo);

Memo1.Lines.Add(CkXml__getXml(xml));

// We now have:

// <?xml version="1.0" encoding="utf-8"?>
// <order>
//     <order_billing_info>
//         <price_list>Listino Italia</price_list>
//         <price_list_id>1</price_list_id>
//         <customer_id>1234</customer_id>
//         <first_name>Francesco</first_name>
//     </order_billing_info>
// </order>

CkXml_Dispose(xml);

end;