(Delphi) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

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;

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

xml.LoadXml('<abc a="123" b="apple">Test</abc>');

//  The UpdateAttribute and AddOrUpdateAttribute methods
//  are identical.  Both will replace the attribute's value if it
//  already exists, or insert a new attribute if it does not yet exist.

//  Change the value of attribute "b" to "pear".
xml.UpdateAttribute('b','pear');

//  Because no attribute named "c" exists, UpdateAttribute
//  will create it:
xml.UpdateAttribute('c','orange');

//  If an attribute's value is an integer, the AddToAttribute
//  method may be called to update it by adding an integer value.
//  For example, update the value of "a" to "130" by adding 7.
xml.AddToAttribute('a',7);

//  Examine the result:
Memo1.Lines.Add(xml.GetXml());
end;