(Delphi ActiveX) 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 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;

begin
xml := TChilkatXml.Create(Self);

success := xml.LoadXmlFile('my_document.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(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."
Memo1.Lines.Add(xml.AccumulateTagContent('zzz','xyz'));
end;