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中formatdatetime的用法

Delphi 的tjpegimage跟image区别

Delphi中的record怎么动态分配内存?

Delphi gdi+ 实现简单画图

Delphi获取我的文档路径

Delphi repeat until 运用

Delphi cxgrid 通过字段名取得列

Delphi qq表情的实现

Delphi 62 进制的简单实现

Delphi执行sql提示“不正常地定义参数对象”,“提供了不一致或不完整的信息”错误

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...