Create XML Child Nodes with Attributes

How to create XML child nodes with attributes.

Download Chilkat XML ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATXMLLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: CHILKATXMLLib_TLB.IChilkatXml;
xNode0: CHILKATXMLLib_TLB.IChilkatXml;
xChild: CHILKATXMLLib_TLB.IChilkatXml;

begin
xml := TChilkatXml.Create(Self).ControlInterface;

//  The Chilkat XML component is freeware.

xml.Tag := 'product';

xNode0 := xml.NewChild('properties','');

xChild := xNode0.NewChild('price','');
xChild.AddAttribute('SellPrice','11.99');

xChild := xNode0.NewChild('price','');
xChild.AddAttribute('BasePrice','11.99');

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

//  Prints this:
//  <product>
//     <properties>
//         <price SellPrice="11.99"></price>
//         <price BasePrice="11.99"></price>
//     </properties>
// </product>

end;