Pascal (Lazarus/Delphi)

Scrub Xml

See more XML Examples

Demonstrates the Scrub method for some common XML cleaning needs.

Note: This example requires Chilkat v9.5.0.77 or greater.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Xml;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  s: string;
  xml: TXml;

begin
  success := False;

  //  The Scrub method has options for trimming whitespace from the ends of attributes and content,
  //  trimming inside whitespace, and for case conversion for tags and attribute names.

  //  Trimming inside whitespace is defined as replacing CR, LF, and tab chars with SPACE chars, and 
  //  removing extra SPACE chars so that at most one SPACE separates non-SPACE chars.

  //  For example, load the following XML:

  s := '<xyz><td class=" colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  "> abc' + #13#10 + '123    456</td></xyz>';

  xml := TXml.Create;
  success := xml.LoadXml(s);

  WriteLn(xml.GetXml());

  //  The XML before scrubbing is:

  //  <xyz>
  //      <td class=" colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  ">abc
  //  123    456</td>
  //  </xyz>

  xml.Scrub('AttrTrimEnds,AttrTrimInside,ContentTrimEnds,ContentTrimInside');
  WriteLn(xml.GetXml());

  //  The XML after scrubbing is:

  //  <?xml version="1.0" encoding="utf-8"?>
  //  <xyz>
  //      <td class="colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221); border-image-outset: 0;">abc 123 456</td>
  //  </xyz>


  xml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.