AddAttribute - Insert New Attribute in XML Node

Demonstrates adding an name=value attribute to an XML tag.

This example uses the XML sample file sample1.xml. The sample1.xml file contains this content:

Download Chilkat XML ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATXMLLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: CHILKATXMLLib_TLB.IChilkatXml;
success: Integer;
bFound: Integer;
numChildren: Integer;
i: Integer;

begin
xml := TChilkatXml.Create(Self).ControlInterface;

success := xml.LoadXmlFile('sample1.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(xml.LastErrorText);
    Exit;
  end;

//  Navigate to the "books" node:

bFound := xml.FindChild2('books');
if (bFound = 0) then
  begin
    Memo1.Lines.Add('No books child found!');
    Exit;
  end;

numChildren := xml.NumChildren;

for i := 0 to numChildren - 1 do
  begin

    //  Navigate to the Nth book (we'll assume success...)
    bFound := xml.GetChild2(i);

    //  Display the book title:
    Memo1.Lines.Add(xml.GetAttrValue('title'));

    //  Add a new integer attribute:
    //  Should never fail..
    success := xml.AddAttributeInt('bookId',i);

    //  Add a new unread="yes" attribute:
    success := xml.AddAttribute('unread','yes');

    //  Navigate back up to the parent:
    success := xml.GetParent2();

  end;

//  Navigate back to the document root:
xml.GetRoot2();

//  Save the updated document:
success := xml.SaveXml('modified.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(xml.LastErrorText);
    Exit;
  end;
end;