Add Child Tree

Add a child tree to an existing XML document.

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;
xmlM: CHILKATXMLLib_TLB.IChilkatXml;
xmlG: CHILKATXMLLib_TLB.IChilkatXml;
xYahoo: String;
xmlYahoo: CHILKATXMLLib_TLB.IChilkatXml;

begin

//  First, build a sample XML document:
xml := TChilkatXml.Create(Self).ControlInterface;
xml.Tag := 'stocks';

xmlM := xml.NewChild('Microsoft','');
xmlM.NewChild2('symbol','MSFT');
xmlM.NewChild2('recentPrice','28.00');

xmlG := xml.NewChild('Google','');
xmlG.NewChild2('symbol','GOOG');
xmlG.NewChild2('recentPrice','440.00');

//  Display the XML so far...
Memo1.Lines.Add(xml.GetXml());

//  This is the XML displayed:
//  <stocks>
//      <Microsoft>
//          <symbol>MSFT</symbol>
//          <recentPrice>28.00</recentPrice>
//      </Microsoft>
//      <Google>
//          <symbol>GOOG</symbol>
//          <recentPrice>440.00</recentPrice>
//      </Google>
//  </stocks>

//  We want to add Yahoo to it:

xYahoo := '<Yahoo><symbol>YHOO</symbol><recentPrice>28.00</recentPrice></Yahoo>';

xmlYahoo := TChilkatXml.Create(Self).ControlInterface;
xmlYahoo.LoadXml(xYahoo);

//  Add the xmlYahoo document just under the root node of
//  our original XML document:
xml.AddChildTree(xmlYahoo);

//  Display the result:
Memo1.Lines.Add(xml.GetXml());


end;