Delphi如何生成xml文件

“ADOQuery.SaveFile()就可以了

保存的文件名后缀为.xml，程序会自动判断”

真的改了后缀名就可以存成Xml文件了吗？在下真没用过，受教了。

你可以根据数据库中的表定义好数据格式，然后利用IXmlDocument接口创建数据，最后再保存成文件就OK了

procedure CreateXML()

var

ixd:IXmlDocument

root: IXmlNode

node: IXmlNode

begin

ixd := NewXmlDocument()

try

ixd.Encoding := 'UTF-8'

root := ixd.AddChild('Datas')

node := root.AddChild('Data')

node.Attributes['id'] := 1

node.Attributes['level'] := '1'

node.Text := 'HAHA'

ixd.SaveToFile('Abc.xml')

finally

ixd := nil

end

end

转化其实就是按着xml的方式进行写入就可以了！

方法

1。直接按着xml格式写入；

2. 用组件完成写入，TXMLDocument,NativeXml

XML文件必须要有也最多有1个根节点

var

XMLDocument1:IXMLDocument

pNode,cNode:IXMLNode{假设pNode为根节点，另外一个为子节点}

begin

if FileExists('test.xml') then DeleteFile('test.xml'){检测文件是否存在}

XMLDocument1:=NewXMLDocument

XMLDocument1.Active := True {必须先激活}

XMLDocument1.Version := '1.0' {设置版本}

XMLDocument1.Encoding := 'GB2312' {设置语言}

pNode := XMLDocument1.AddChild('根节点名'){添加的第一个节点是根节点, 现在的 pNode 是根节点}

cNode := pNode.AddChild('test1') {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}

cNode.Text := 'test1子节点的内容'

cNode := pNode.AddChild('test2') {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}

cNode.Text := 'test2子节点的内容'

end

如果你还想向子节点再加一个子节点可以定义多一个变量，如dNode：

dNode := cNode.AddChild('test3') {为 cNode 添加子节点, 返回值 dNode 指向了新添加的节点}

dNode.Text := 'test3子节点的内容'

希望能够帮助你

---