TClientDataSet 操作和读入 xml 文件

XML文件的格式如下

<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
<METADATA>
<FIELDS>
<FIELD attrname="aaa" fieldtype="string" WIDTH="20"/>
</FIELDS>
<PARAMS/>
</METADATA>
<ROWDATA>
<ROW RowState="4" aaa="aaa"/>
<ROW RowState="4" aaa="bbbb"/>
<ROW RowState="4" aaa="cccc"/>
</ROWDATA>
</DATAPACKET>

在 delphi 中，ClientDataSet 可以读取 xml 文件，并将它转换成数据集，要完成这一点，必须在 xml 文件中拥有 dataPacket，也就是根节点的名称必须是 DATAPACKET，并且版本为 2.0
metaData 用于指出表的字段及参数，字段用 Fields 标识出，格式如
rowData 用于指出实际的数据，它必须与 Fields 中所指示的字段对应起来
做完这些以后，就能够用 ClientDataSet 读写了
ClientDataSet1.FileName := <xml文件名>

配置TClientDataSet

ClientDataSet,DataSource,DBGrid

三者数据源相互绑定，而且ClientDataSet的FileName指向被发现的Xml文档即可！！

而且要配置ClientDataSet的Active为True才能实现数据查看，也可以在代码里面实现Active为True

ClientDataSet 排序

在 DBGRID表格编辑器里面点击OnTitleClick事件，在事件里面写

procedure TForm1.dbgrd1TitleClick(Column: TColumn);
begin
ds1.IndexFieldNames:=Column.FieldName;//表示按照字段名称默认排序
end;

ClientDataSet 筛选

procedure TForm1.btn5Click(Sender: TObject); begin ds1.Filter:='aaa='+ QuotedStr('bbb'); //aaa表示字段名，bbb表示字段的某数据 ds1.Filtered := True;//表示执行筛选过程 end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!