(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
xml: HCkXml;
success: Boolean;

begin
xml := CkXml_Create();

success := CkXml_LoadXml(xml,'<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 := CkXml_UpdateAttribute(xml,'b','pear');

// Because no attribute named "c" exists, UpdateAttribute
// will create it:
success := CkXml_UpdateAttribute(xml,'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.
CkXml_AddToAttribute(xml,'a',7);

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

CkXml_Dispose(xml);

end;