Question

Delphi如何生成xml文件

我想利用DELPHI把SQLserver2000数据库中表的数据导出生成XML文件，请各位大侠帮帮忙，小弟是个新手。

Answer 1

“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;

Answer 2

ADOQuery.SaveFile()就可以了
保存的文件名后缀为.xml，程序会自动判断

你可以看看这个函数里面的代码，这个其实带两个参数，第二个的参数类型是
TPersistFormat = (pfADTG, pfXML);