TQJson序列和还原clientdataset.data

TQJson是QDAC开源项目的JSON对象，其特点是跨平台，功能强大。

序列

procedure TForm2.Button2Click(Sender: TObject);
var
AJson: TQJson;
begin
AJson := TQJson.Create;
try
AJson.AsVariant := ClientDataSet1.Data;
if SaveDialog1.Execute then
AJson.SaveToFile(SaveDialog1.FileName, teUtf8, true);
finally
AJson.Free;
end;
end;

还原

procedure TForm2.Button3Click(Sender: TObject);
var
AJson: TQJson;
function Json2Bytes: TBytes;
var
I: Integer;
begin
SetLength(Result, AJson.Count);
for I := 0 to AJson.Count - 1 do
Result[I] := AJson[I].AsInteger;
end;

begin
AJson := TQJson.Create;
try
if OpenDialog1.Execute then
begin
AJson.LoadFromFile(OpenDialog1.FileName);
ClientDataSet1.Close;
ClientDataSet1.Data := Json2Bytes;
end;
finally
AJson.Free;
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/4329546.html

TQJson序列和还原clientdataset.data相关推荐

C语言DNA序列还原
题目为: 从名为source的文件中读取简写的DNA序列,再将其完整化的写入名为target的文件中本题的思路在于让程序检测左括号"("和右括号")"的存在, ...
魔方机器人（一）还原算法
魔方机器人(一)还原算法还原算法简介我使用的是Thislethwaite还原算法.其简介如下:一般的魔方还原的解法是通过逐块(piece or block or layer)还原来减少下一步剩余块 ...
python魔方程序算法_魔方机器人（一）还原算法
魔方机器人(一)还原算法还原算法简介我使用的是Thislethwaite还原算法.其简介如下:一般的魔方还原的解法是通过逐块(piece or block or layer)还原来减少下一步剩余块 ...
r语言remarkdown展示图_使用R语言包circlize可视化展示blast双序列比对结果
circlize这个包还挺强大的,R语言里用来画圈图还挺方便的. 今天这篇文章记录用circlize这个包画圈图展示blast双序列比对结果的代码植物线粒体基因组类的文章通常会分析细胞器基因组间基因 ...
QIIME 2用户文档. 9数据导入Importing data(2019.7)
前情提要 NBT:QIIME 2可重复.交互和扩展的微生物组数据分析平台 1简介和安装Introduction&Install 2插件工作流程概述Workflow 3老司机上路指南Experi ...
QIIME 2用户文档. 8数据导入Importing data(2018.11)
文章目录前情提要 QIIME 2用户文档. 8数据导入导入带质量值的FASTQ测序数据 EMP标准混样单端数据 EMP混样双端数据 Casava1.8单端混样数据 Casava 1.8双端拆分后数 ...
QIIME 2教程. 09数据导入Importing data(2020.11)
文章目录 QIIME 2用户文档. 9数据导入导入带质量值的FASTQ测序数据 EMP标准混样单端数据 EMP混样双端数据 Casava1.8单端混样数据 Casava 1.8双端拆分后数据 **F ...
ClientDataSet 探讨
1. 与TTable.TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的客户端.很多数据库应用程序都用了BDE,BDE往往给发布带来很大的不便,因 ...
拓扑排序之变量序列代码
/* Name: Copyright: Author: Date: 17-11-14 21:02 Description: 拓扑排序之变量序列如果有n个变量(1<=n<=26,变 ...
18、数据的备份和还原
mysql中数据的备份有以下几种方式: 1.直接在数据库文件夹中复制对应的表结构以及数据文件进行数据备份 2.将每一张表中的数据进行备份 3.使用mysqldump.exe 进行备份 4.增量数据备份 ...

TQJson序列和还原clientdataset.data

TQJson序列和还原clientdataset.data相关推荐

最新文章

热门文章