(Delphi DLL) XML Accumulate Tag Content

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>

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;

begin
xml := CkXml_Create();

success := CkXml_LoadXmlFile(xml,'my_document.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    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."
Memo1.Lines.Add(CkXml__accumulateTagContent(xml,'zzz','xyz'));

CkXml_Dispose(xml);

end;