TClientDataSet[2]: Data、XMLData

TClientDataSet.Data    { 数据的二进制格式的描述 }
TClientDataSet.XMLData { 数据的 XML 格式的描述 }

//先在窗体上放置 ClientDataSet1、Memo1 和三个按钮uses XMLDoc, IOUtils; { 分别提供 FormatXMLData 和 TFile.ReadAllText 函数 }{ 设定当前目录 }
procedure TForm1.FormCreate(Sender: TObject);
beginChDir(GetEnvironmentVariable('COMMONPROGRAMFILES') + '\CodeGear Shared\Data\');
end;{ 读取 XMLData 测试 }
procedure TForm1.Button1Click(Sender: TObject);
beginClientDataSet1.LoadFromFile('employee.cds');Memo1.Text := FormatXMLData(ClientDataSet1.XMLData);
end;{ 写入 XMLData 测试 }
procedure TForm1.Button2Click(Sender: TObject);
varstr: string;
beginstr := TFile.ReadAllText('country.xml');ClientDataSet1.XMLData := str;Memo1.Text := FormatXMLData(ClientDataSet1.XMLData);
end; { 读写 Data 测试 }
procedure TForm1.Button3Click(Sender: TObject);
varClientDataSet2: TClientDataSet;
beginClientDataSet2 := TClientDataSet.Create(Self);ClientDataSet2.LoadFromFile('parts.cds');ClientDataSet1.Data := ClientDataSet2.Data;ClientDataSet2.Free;Memo1.Text := FormatXMLData(ClientDataSet1.XMLData);
end;{ 合并两个数据集 }
procedure TForm1.Button4Click(Sender: TObject);
varcds1,cds2: TClientDataSet;
begincds1 := TClientDataSet.Create(Self);cds2 := TClientDataSet.Create(Self);cds1.LoadFromFile('industry.cds');ShowMessage(IntToStr(cds1.RecordCount)); { 7 }//把 cds1 的结构与数据复制到 cds2cds2.Data := cds1.Data;ShowMessage(IntToStr(cds2.RecordCount)); { 7 }//把 cds1 的数据合并到 cds2cds2.AppendData(cds1.Data, True);ShowMessage(IntToStr(cds2.RecordCount)); { 14 }//把 cds2 的数据合并到 cds1cds1.AppendData(cds2.Data, True);ShowMessage(IntToStr(cds1.RecordCount)); { 21 }cds1.Free;cds2.Free;
end;

转载于:https://www.cnblogs.com/del/archive/2010/01/20/1652306.html

TClientDataSet[2]: Data、XMLData相关推荐

【Vue.js 牛刀小试】：第九章 - 组件基础再探（data、props）
系列目录地址一.基础知识概览第一章 - 一些基础概念(posted at 2018-10-31) 第二章 - 常见的指令的使用(posted at 2018-11-01) 第三章 - 事件修饰符的 ...
Intent中的四个重要属性——Action、Data、Category、Extras
Intent中的四个重要属性--Action.Data.Category.Extras 支持原文:点击链接进入原文阅读-->http://www.cnblogs.com/wisekingokok ...
【c++】4.std::shared_ptr、std::make_shared、 .get() 、.data()、void *p 的用法、裸指针
std::shared_ptr.std::make_shared. .get() ..data().void *p 的用法.裸指针 (1)shared_ptr能够记录对象被引用的次数,主要被用来管理动 ...
Tensorflow：TF模型文件(checkpoint文件夹下ckpt文件之data、index、meta)保存、模型导入、恢复并fine-tuning之详细攻略
Tensorflow:TF模型文件(checkpoint文件夹下ckpt文件之data.index.meta)保存.模型导入.恢复并fine-tuning之详细攻略目录保存TF训练好的模型 1.T ...
[大數據、Big Data、巨量資料、海量資料]之分析模式工具
[大数据.Big Data.巨量数据.海量数据]之分析模式工具相关资料 : http://www.wisdom1.net/?cat=9 Data link Visualization Maker ...
关于嵌入式系统内存地址空间的一些疑问（.text、.data、.bass、堆\栈空间）
深入浅出了解(.text..data..bss.堆空间.栈空间)的含义接下来所说的是嵌入式系统的内存地址空间的布局,简单的说就是我们写好的代码,在编译过程种中,把代码里不同的变量.函数相应的保存在每 ...
string中c_str()、data()、copy(p,n)函数的用法
转载:http://www.cnblogs.com/qlwy/archive/2012/03/25/2416937.html 标准库的string类提供了3个成员函数来从一个string得到c类型的字 ...
http请求中的Query String Parameters、Form Data、Request Payload
参考: (1).(http请求参数之Query String Parameters.Form Data.Request Payload) - https://www.jianshu.com/p/c81 ...
实例说明代码段(.text)、数据段(.data)、bss段、只读数据段(.rodata)、堆栈的划分依据
目录程序实例介绍各个段内容.分析段(segment)分布分析代码段(.text).数据段(.data).bss段.只读数据段(.rodata)划分依据程序实例介绍各个段内容.分析段(segmen ...
TYPES、DATA、TYPE、LIKE、CONSTANTS、STATICS、TABLES
TYPES.DATA.TYPE.LIKE. 42 创建数据类型与变量... 44 TYPES 语句... 44 DATA 语句... 46 CONSTANTS 语句... 48 STATICS 语句. ...

TClientDataSet[2]: Data、XMLData

TClientDataSet[2]: Data、XMLData相关推荐

最新文章

热门文章