生成XML文档

Question

想传些数据，所以希望使用xml格式.是否能给个完整的写xml的程序片断？
要求很简单，从CreateElement开始直到最后一个SaveToFile，Active:=false

Answer 1

用adoDataSet 的saveToFile 和loadFromFile方式，指定风格为xml,该功能就是为了实现“公文包”模式，保存当前dataset 的所有状态

Answer 2

对不起，这里我没有想和任何数据关联，只是作为一种传输的格式。没有原来的数据，数据是我程序自己生成的。然后用xml格式保存就可以了。

Answer 3

var
  iNode,iChild: IXMLNode;
begin
  with XMLDocument1 do  
  begin
    Active := False;
    XML.Text := '';  //empty the document
    Active := True;    Encoding := '???';
    DocumentElement := CreateNode(RootName); //root
    iNode := DocumentElement.AddChild(NodeName); //add a node
    iNode.Attributes['NodeId'] := ...;
    iNode.Text := ...;
　　{...}　
    iChild := iNode.AddChild(ChildName);
    iChild.Text := ...
    {...}
  end;
  Memo1.Lines := XMLDocument1.XML;
end;(注：用TXMLDocument控件)