Delphi 写XML文件

RAD Studio 10.2.3 测试√

---

// uses Xml.XMLDoc, Xml.XMLIntf

procedure TForm_Tips.Button_WriteXMLFileClick(Sender: TObject);
var
  mFileName: string;
  mDocument: IXMLDocument;
  mMainNode: IXMLNode;
  mNode, mTmpNode: IXMLNode;
begin
  mFileName := ExtractFileDir(ParamStr(0)) + '\test2.xml';

  mDocument := TXMLDocument.Create(nil);
  mDocument.Active := True;
  mDocument.Version := '1.0';        // 定义 XML 的版本
  mDocument.Encoding := 'UTF-8';     // 所使用的编码

  // 根节点
  mMainNode := mDocument.AddChild('test', 'xiaoyin');

  mNode := mMainNode.AddChild('test02');
  mNode.Attributes['attribute01'] := 'xiaoyin01';
  mNode.Attributes['attribute02'] := 'xiaoyin02';

  mTmpNode := mNode.AddChild('test03');
  mTmpNode.Text := '测试内容03';
  mTmpNode := mNode.AddChild('test04');
  mTmpNode.Text := '测试内容04';
  mTmpNode := mNode.AddChild('test05');
  mTmpNode.Text := '测试内容05';

  mDocument.SaveToFile(mFileName);
  mDocument.Active := False;
  ShowMessage('写入成功');
end;

---

一点点笔记，以便以后翻阅。