(Delphi ActiveX) Creating a New Child Node
Demonstrates how to create a new child in an XML document.
The following XML sample code produces this output:
<abc>
<xyz>
<mmm>123</mmm>
</xyz>
</abc>
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
xml: TChilkatXml;
childNode: IChilkatXml;
begin
xml := TChilkatXml.Create(Self);
xml.Tag := 'abc';
// Create a new child with no content
// and return the newly created child node:
childNode := xml.NewChild('xyz','');
// Create a child under childNode, but instead call
// NewChild2 which doesn't return the newly created child node:
childNode.NewChild2('mmm','123');
Memo1.Lines.Add(xml.GetXml());
end;
|