TClientDataSet[2]: Data、XMLData
2010-01-20 13:24
537 查看
TClientDataSet.Data { 数据的二进制格式的描述 } TClientDataSet.XMLData { 数据的 XML 格式的描述 }
//先在窗体上放置 ClientDataSet1、Memo1 和三个按钮 uses XMLDoc, IOUtils; { 分别提供 FormatXMLData 和 TFile.ReadAllText 函数 } { 设定当前目录 } procedure TForm1.FormCreate(Sender: TObject); begin ChDir(GetEnvironmentVariable('COMMONPROGRAMFILES') + '\CodeGear Shared\Data\'); end; { 读取 XMLData 测试 } procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.LoadFromFile('employee.cds'); Memo1.Text := FormatXMLData(ClientDataSet1.XMLData); end; { 写入 XMLData 测试 } procedure TForm1.Button2Click(Sender: TObject); var str: string; begin str := TFile.ReadAllText('country.xml'); ClientDataSet1.XMLData := str; Memo1.Text := FormatXMLData(ClientDataSet1.XMLData); end; { 读写 Data 测试 } procedure TForm1.Button3Click(Sender: TObject); var ClientDataSet2: TClientDataSet; begin ClientDataSet2 := TClientDataSet.Create(Self); ClientDataSet2.LoadFromFile('parts.cds'); ClientDataSet1.Data := ClientDataSet2.Data; ClientDataSet2.Free; Memo1.Text := FormatXMLData(ClientDataSet1.XMLData); end; { 合并两个数据集 } procedure TForm1.Button4Click(Sender: TObject); var cds1,cds2: TClientDataSet; begin cds1 := TClientDataSet.Create(Self); cds2 := TClientDataSet.Create(Self); cds1.LoadFromFile('industry.cds'); ShowMessage(IntToStr(cds1.RecordCount)); { 7 } //把 cds1 的结构与数据复制到 cds2 cds2.Data := cds1.Data; ShowMessage(IntToStr(cds2.RecordCount)); { 7 } //把 cds1 的数据合并到 cds2 cds2.AppendData(cds1.Data, True); ShowMessage(IntToStr(cds2.RecordCount)); { 14 } //把 cds2 的数据合并到 cds1 cds1.AppendData(cds2.Data, True); ShowMessage(IntToStr(cds1.RecordCount)); { 21 } cds1.Free; cds2.Free; end;
相关文章推荐
- TClientDataSet[2]: Data、XMLData
- TQJson序列和还原clientdataset.data
- ClientDataSet清空Data
- 无法对ClientDataSet.XMLData进行赋值
- TClientDataSet[2]: Data、XMLData
- TClientDataSet 手动修改Data数据
- TQMsgPack序列还原clientdataset.data
- 实现一个客户端的DataSet-----ClientDataSetDataProvider.asmx
- ClientDataSet get data through Application Server
- TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
- Delphi中ClientDataSet的用法小结
- 关于Dataset,Sqlcommand,Sqldataadapter及相关的类的问题
- 解决AjaxControlToolkit编译过程中的System.Data.DataSetExtensions及vjslib错误
- VS2012 System.Data中找不到System.Data.OracleClient,在引用后仍报错解决方法
- DataSet DataTable DataReader dataAdapter区别
- redis.clients.jedis.exceptions.JedisDataException: ERR Client sent AUTH, but no password is set
- EndOfStreamException: Unable to read additional data from client sessionid 0x0, likely client has cl
- WCF Data Service 的.NET Client 的不支持原生类型服务操作的解决方法
- WCF Data Service 的.NET Client 的不支持原生类型服务操作的解决方法
- WCF Data Service 的.NET Client 的不支持原生类型服务操作的解决方法