(Delphi ActiveX) XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method.

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

begin
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>

// If there is no "customer_id" element under "order_billing_info", then add it.
if (xml.HasChildWithTag('order_billing_info|customer_id') = 1) then
  begin
    Memo1.Lines.Add('customer_id already exists, nothing to do...');
    Exit;
  end;

// Add the customer_id element just before the "price_list" element.

// Get the "order_billing_info" element
orderBillingInfo := xml.FindChild('order_billing_info');

// Call NewChildBefore to add an XML element <customer_id> before <price_list>
// First get the index of the element price_list
index := orderBillingInfo.TagIndex('price_list');
Memo1.Lines.Add('index = ' + IntToStr(index));

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

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

// We now have:

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