TXMLDocumentCreateNode (Delphi)

Description

This example uses the CreateNode function.

Code

procedure Test_CreateNode;
var
  LDocument: IXMLDocument;
  LNode: IXMLNode;
begin
  LDocument := TXMLDocument.Create(nil);
  LDocument.Active := True;

  LNode := LDocument.CreateNode('TestElement', ntElement);
  LDocument.DocumentElement := LNode;
  LNode.ChildNodes.Add(LDocument.CreateNode('TestComment', ntComment));

  { Display document content. }
  Writeln(LDocument.XML.Text);
end;

Uses

• Xml.XMLDoc.TXMLDocument.Active ( fr | de | ja )

• Xml.XMLDoc.TXMLDocument.CreateNode ( fr | de | ja )

• Xml.XMLDoc.TXMLDocument.DocumentElement ( fr | de | ja )

• Xml.XMLDoc.TXMLDocument.XML ( fr | de | ja )