(Delphi) Using CDATA in XML

Demonstrates how to force the content of a node to be encapsulated in CDATA.

The output of the following program is an XML document that looks like this:

<root>
    <year>2009</year>
    <junk1>abc .. &lt; &amp; &gt; 123</junk1>
    <junk2><![CDATA[abc .. < & > 123]]></junk2>
</root>

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;
child1: CHILKATXMLLib_TLB.IChilkatXml;
child2: CHILKATXMLLib_TLB.IChilkatXml;
child3: CHILKATXMLLib_TLB.IChilkatXml;

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

xml.Tag := 'root';

child1 := xml.NewChild('year','2009');

child2 := xml.NewChild('junk1','abc .. < & > 123');

child3 := xml.NewChild('junk2','abc .. < & > 123');
child3.Cdata := 1;

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