在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
TClientDataSet 可以直接存取的 XML 有自己的格式规范, 存取其他格式 XML 需要相应的映射文件(*.xtr).
//先添加控件: ClientDataSet1、DataSource1、DBGrid1、XMLTransformProvider1、Button1, 然后: procedure TForm1.FormCreate(Sender: TObject); begin ChDir('C:\Temp\DelphiTest\'); { 三个相关文件都放这了 } { 数据控件挂接 } DBGrid1.DataSource := DataSource1; DataSource1.DataSet := ClientDataSet1; ClientDataSet1.ProviderName := 'XMLTransformProvider1'; { 数据提供者 } { 读取转换; 包括下面的属性都可在设计时设置 } XMLTransformProvider1.TransformRead.TransformationFile := 'ToDp.xtr'; { 写入转换 } XMLTransformProvider1.TransformWrite.TransformationFile := 'ToXML.xtr'; { 源文件 } XMLTransformProvider1.XMLDataFile := 'Test.xml'; { 打开 } ClientDataSet1.Open; end; { 数据编辑后, 保存到源文件 } procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.ApplyUpdates(0); end;
//先添加控件: ClientDataSet1、DataSource1、DBGrid1、XMLTransform1, 然后: procedure TForm1.FormCreate(Sender: TObject); begin ChDir('C:\Temp\DelphiTest\'); DBGrid1.DataSource := DataSource1; DataSource1.DataSet := ClientDataSet1; XMLTransform1.SourceXmlFile := 'Test.xml'; XMLTransform1.TransformationFile := 'ToDp.xtr'; ClientDataSet1.XMLData := XMLTransform1.Data; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论