Delphi ile DataSet To XML

本文整理自网络，侵删。

 
Var
XML : IXMLDOCUMENT;
PolisoftXMLExport,TabloName,Field:IXMLNODE;
i,a:integer;
begin
if  Data.IsEmpty then
begin
ShowMessage('DataSet is not null');
Exit;
end;
XML := NewXMLDocument;
XML.Encoding  := 'utf-8';
XML.Options   := [doNodeAutoIndent];
PolisoftXMLExport      := XML.AddChild('PolisoftXMLExport');
for I := 1 to Data.RecordCount do
begin
TabloName := PolisoftXMLExport.AddChild('Police',i);
Data.First;
for a := 1 to Data.FieldCount do
begin
Field := TabloName.AddChild(Data.Fields[a-1].FieldName,0);
Field.Text := Data.Fields[a-1].AsString;
end;
end;
XMl.SaveToFile(Path);
ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE); 
end

 

相关阅读 >>

Delphi 图像分割

Delphi 进程之间传递cmd参数

Delphi mediaplayer1 设置音量

Delphi idftp用法

Delphi 老外分享的textfile高速遍历大数据文本

Delphi 安卓读写ini文件

Delphi 进程隐藏的若干方法

Delphi中实现dbgrid列宽度自动调整

Delphi建立快捷方式的函数:createshortcut()

Delphi 通过http获取软件版本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ile DataSet To XML