(Delphi ActiveX) Auto-Trim XML Content when Loading

This example explains the "autoTrim" argument that is passed to a method such as LoadXml2.

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
xml: TChilkatXml;
success: Integer;
autoTrim: Integer;

begin
xml := TChilkatXml.Create(Self);

// If autoTrim is 1, then the content inside an leaf element is trimmed.
// For example:
autoTrim := 1;
xml.LoadXml2('<abc><xyz>  123   </xyz></abc>',autoTrim);
Memo1.Lines.Add(xml.GetXml());

// Output is:
// (notice the SPACE chars before and after "xyz" are trimmed)

// <?xml version="1.0" encoding="utf-8" ?>
// <abc>
//     <xyz>123</xyz>
// </abc>

// If autoTrim is 0, then the content inside leaf elements are not trimmed.
autoTrim := 0;
xml.LoadXml2('<abc><xyz>  123   </xyz></abc>',autoTrim);
Memo1.Lines.Add(xml.GetXml());

// Output is:

// <?xml version="1.0" encoding="utf-8" ?>
// <abc>
//     <xyz>  123   </xyz>
// </abc>

// --------------------------------------------------------------------
// The EmitCompact property controls whether XML is emitted indented (pretty-printed)
// or compact.  For example:

// Auto-trim + emit compact:
autoTrim := 1;
xml.LoadXml2('<abc><xyz>  123   </xyz></abc>',autoTrim);
xml.EmitCompact := 1;
Memo1.Lines.Add(xml.GetXml());

// Output is:

// <?xml version="1.0" encoding="utf-8" ?>
// <abc><xyz>123</xyz></abc>

// No Auto-trim + emit compact:
autoTrim := 0;
xml.LoadXml2('<abc><xyz>  123   </xyz></abc>',autoTrim);
xml.EmitCompact := 1;
Memo1.Lines.Add(xml.GetXml());

// Output is:

// <?xml version="1.0" encoding="utf-8" ?>
// <abc><xyz>  123   </xyz></abc>
end;