(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: HCkXml;
success: Boolean;
autoTrim: Boolean;

begin
xml := CkXml_Create();

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

// 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 False, then the content inside leaf elements are not trimmed.
autoTrim := False;
CkXml_LoadXml2(xml,'<abc><xyz>  123   </xyz></abc>',autoTrim);
Memo1.Lines.Add(CkXml__getXml(xml));

// 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 := True;
CkXml_LoadXml2(xml,'<abc><xyz>  123   </xyz></abc>',autoTrim);
CkXml_putEmitCompact(xml,True);
Memo1.Lines.Add(CkXml__getXml(xml));

// Output is:

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

// No Auto-trim + emit compact:
autoTrim := False;
CkXml_LoadXml2(xml,'<abc><xyz>  123   </xyz></abc>',autoTrim);
CkXml_putEmitCompact(xml,True);
Memo1.Lines.Add(CkXml__getXml(xml));

// Output is:

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

CkXml_Dispose(xml);

end;