Delphi DLL

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." Delphi 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
success: Boolean;
xml: HCkXml;

begin
success := False;

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;