Un código como este:
Código Delphi
[-]
var
Items, Task: IXMLNode;
XML:string;
Doc: IXMLDocument;
begin
Doc := NewXMLDocument;
Items := Doc.AddChild('CdtTrfTxInf');
Items := Items.AddChild('amt');
Task := Items.AddChild('InstdAmt');
Task.Attributes['Ccy'] := 'EUR';
Task.NodeValue := '537.00';
XML := Doc.XML.Text;
Memo1.Lines.Text := XML;
Te dará un resultado como este:
Código:
<?xml version="1.0"?>
<CdtTrfTxInf>
<amt>
<InstdAmt Ccy="EUR">537.00</InstdAmt>
</amt>
</CdtTrfTxInf>