Pascal (Lazarus/Delphi)

XML Accumulate Tag Content

See more XML Examples

Demonstrates how to use the AccumulateTagContent method of the XML class.

Imagine the XML document for this test contains the following:

<?xml version="1.0" encoding="utf-8"?>
<abc>
	<zzz>The quick brown fox</zzz>
	<xyz>
	    <zzz>hello world!</zzz>
	</xyz>
	<mmm>
	    <zzz>jumped over the lazy dog.</zzz>
	</mmm>
</abc>

The result of accumulating the content for all "zzz" nodes, but skipping subtrees rooted at "xyz" nodes, is the string "The quick brown fox jumped over the lazy dog." 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;
  xml: TXml;

begin
  success := False;

  xml := TXml.Create;

  success := xml.LoadXmlFile('my_document.xml');
  if (success <> True) then
    begin
      WriteLn(xml.LastErrorText);
      Exit;
    end;

  //  Accumulate the textual content within the "zzz" nodes of this
  //  XML.  Skip sub-trees rooted at nodes having the tag "xyz".
  //  For the given test XML, the resulting accumulated text should be:
  //  "The quick brown fox jumped over the lazy dog."
  WriteLn(xml.AccumulateTagContent('zzz','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.