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 superobject json操作类的基本用法

Delphi指针

Delphi里动态创建access的交叉表视图

Delphi调用rest

Delphi版进程间的相互调用与参数传递

Delphi常用日期函数

Delphi根据窗口句柄获取所在程序路径

Delphi xe5 给edit增加自定义按钮

Delphi unix时间转换成Delphi时间

Delphi控制摄像头

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

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