(Delphi ActiveX) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</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.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".
success := xml.UpdateAttribute('b','pear');

// Because no attribute named "c" exists, UpdateAttribute
// will create it:
success := 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;