Delphi ActiveX

XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method. Delphi ActiveX

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

begin
success := 0;

xml := TChilkatXml.Create(Self);

xml.Tag := 'order';
xml.NewChild2('order_billing_info|price_list','Listino Italia');
xml.NewChild2('order_billing_info|price_list_id','1');
xml.NewChild2('order_billing_info|first_name','Francesco');

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

// 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 := xml.FindChild('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 := orderBillingInfo.TagIndex('price_list_id');
Memo1.Lines.Add('index = ' + IntToStr(index));

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

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

// 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>
end;