关于内存数据与 JSON【转载】

2017年4月11日 2条评论 2,110次阅读 0人点赞

闲话:

正在用 WebBroker 写一个小网站，感受颇多：
1、如果是写一个小东西，应该先考虑下 WebBroker，因为它是分分钟即可上手的。
2、如果要写一个大东西，或许也应该考虑下 WebBroker，因为相比其他它有着最高的灵活度(但这只是想像，因为我只是写了一个小东西)。
3、Delphi 3 就有了 WebBroker，可惜现在才开始使用它；随着“服务器”与“网页程序”的普及，WebBroker 应该会被更多地提起。

期间用到了 json, 所以有了这篇博文。

Delphi 与内存数据的总结与回顾:

1、普通类型变量：储存一个数据。

2、数组：储存一组同类型的数据。

3、结构体：储存一组不同类型的数据；现在的结构体越来越复杂了，还可以操作这些个数据，越来越像“类”了。

4、“键值”对：我一般使用 TStringList，并常常用它代替 ini 文件类；同类还有 THashedStringList、TStringHash。

5、分类的 “键值”对：TMemIniFile、TIniFile; 另外还有人用 sqlite 做了一个可以储存二进制数据的 ini 文件类(忘了名了)，我试过，非常好用（在官方示例中）。

6、内存数据表：现在应该首选 TFDMemTable 了(之前是 TClientDataSet)。

7、数据库级别的内存(或文件)数据：SqLite。

8、内存多叉树：JSON(或 XML)；之前一直使用 SuperObject，以后会使用 System.JSON 更多些。

System.JSON？还是 SuperObject？

System.JSON 是官方的；这省去很多麻烦，这也是我考虑它的主要原因。

System.JSON “读写文件” 与 “格式化” 等功能，都有的功能也不如 SuperObject 方便。

System.JSON 主要考虑的是：从服务器生成 json，然后传输到客户端(特别是给 JavaScript 使用)，不像 SuperObject 大而全。

如果不是太复杂的 json 应用，优先考虑 System.JSON 吧；如果需要更多功能，SuperObject 会更理想。

1 分钟了解 System.JSON:

其中的类不少，主要用到的有：TJSONObject、TJSONArray。

uses System.JSON;

//TJSONObject
procedure TForm1.Button1Click(Sender: TObject);
var
  j: TJSONObject;
begin
  j := TJSONObject.Create;
  j.AddPair('aa', '111');
  j.AddPair('bb', '222');

  //输出字符串
  Memo1.Text := j.ToString; //结果：{"aa":"111","bb":"222"}
    {ToJSON 与 ToString 结果相同，但应尽量使用 ToString 而不是 ToJSON；因为 ToJSON 也是调用 ToString 并且还要重新分配内存}

  j.Free;
end;

//TJSONArray
procedure TForm1.Button2Click(Sender: TObject);
var
  a: TJSONArray;
begin
  a := TJSONArray.Create;
  a.Add(1); //TJSONArray 不像传统的数组，它可以接受几种不同类型的值；这应该算是对 Delphi 数组功能的扩充吧。
  a.Add(2);
  a.Add('aaa');
  a.Add('bbb');

  Memo1.Text := a.ToString; //结果：[1,2,"aaa","bbb"]

  a.Free;
end;

//当 TJSONObject 嵌套其他对象时
procedure TForm1.Button3Click(Sender: TObject);
var
  j: TJSONObject;
  a: TJSONArray;
begin
  j := TJSONObject.Create;
  a := TJSONArray.Create('aaa', 'bbb'); //可以使用两个值初始化
  a.Add(1);
  a.Add(2);

  j.AddPair('arr', a);

  Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}

//  a.Free; {千万不要释放其内部对象，它的父对象会自动释放它}
  j.Free;
end;

//变通上例
procedure TForm1.Button4Click(Sender: TObject);
var
  j: TJSONObject;
begin
  j := TJSONObject.Create;

  j.AddPair('arr', TJSONArray.Create);

  with j.Values['arr'] as TJSONArray do
  begin
    Add('aaa');
    Add('bbb');
    Add(1);
    Add(2);
  end;

  Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}
  j.Free;
end;

//再变通
procedure TForm1.Button5Click(Sender: TObject);
var
  j: TJSONObject;
  a: TJSONArray;
begin
  j := TJSONObject.Create;

  j.AddPair('arr', TJSONArray.Create);

  a := TJSONArray(j.Values['arr']);
  a.Add('aaa');
  a.Add('bbb');
  a.Add(1);
  a.Add(2);

  Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}
  j.Free;
end;

//添加其他类型的数
procedure TForm1.Button6Click(Sender: TObject);
var
  j: TJSONObject;
  a: TJSONArray;
begin
  j := TJSONObject.Create;
  j.AddPair('数值', TJSONNumber.Create(3.1415926));
  j.AddPair('布尔真', TJSONTrue.Create);
  j.AddPair('布尔假', TJSONFalse.Create);
  j.AddPair('空值', TJSONNull.Create);

  Memo1.Text := j.ToString; //结果：{"数值":3.1415926,"布尔真":true,"布尔假":false,"空值":null}
  j.Free;
end;

//读取
procedure TForm1.Button7Click(Sender: TObject);
var
  j: TJSONObject;
  str: string;
  num: Integer;
  arr1,arr2: string;
begin
  j := TJSONObject.Create;
  j.AddPair('str', '111');
  j.AddPair('num', TJSONNumber.Create(222));
  j.AddPair('arr', TJSONArray.Create('arr1', 'arr2'));

  Memo1.Text := j.ToString; //结果：{"str":"111","num":222,"arr":["arr1","arr2"]}

  //JSON 是一组”键值对“，其中的”值“还有可能是”键值对“；
  //所以 System.JSON 用 TJSONValue 来表示值类型，它是所有值类型的父类，当然也是 TJSONObject 的父类。

  str := j.Values['str'].Value;             //Values[] 调用的是 GetValue(), 更喜欢直接用后者
  num := j.GetValue('num').Value.ToInteger;

  arr1 := TJSONArray(j.GetValue('arr')).Items[0].Value;
  arr2 := TJSONArray(j.GetValue('arr')).Items[1].Value;

  Memo1.Lines.Add(Format('%s, %d, %s, %s', [str, num, arr1, arr2])); //111, 222, arr1, arr2

  j.Free;
end;

//遍历
procedure TForm1.Button8Click(Sender: TObject);
var
  j: TJSONObject;
  p: TJSONPair;
  v: TJSONValue;
  i: Integer;
  a: TJSONArray;
begin
  j := TJSONObject.Create;
  j.AddPair('aa', '111');
  j.AddPair('bb', '222');
  j.AddPair('arr', TJSONArray.Create('arr1', 'arr2'));

  //集合遍历 TJSONObject
  for p in j do
    Memo1.Lines.Add(p.ToString); //"aa":"111" \\ "bb":"222" \\ "arr":["arr1","arr2"]

  //索引遍历 TJSONObject, 这里的 Get 函数已不提倡使用了
  for i := 0 to j.Count - 1 do
    Memo1.Lines.Add(j.Get(i).ToString); //"aa":"111" \\ "bb":"222" \\ "arr":["arr1","arr2"]

  //集合遍历 TJSONArray
  for v in j.Values['arr'] as TJSONArray do
    Memo1.Lines.Add(v.Value); //arr1 \\ arr2

  //索引遍历 TJSONArray
  a := j.Values['arr'] as TJSONArray;
  for i := 0 to a.Count - 1 do
    Memo1.Lines.Add(a.Items[i].Value); //arr1 \\ arr2
  j.Free;
end;

//存取到文件
procedure TForm1.Button9Click(Sender: TObject);
var
  j1,j2: TJSONObject;
begin
  //随便虚拟些数据
  j1 := TJSONObject.Create(TJSONPair.Create('aaa', '111'));
  j1.AddPair('bbb', j1.Clone as TJSONValue);

  ChDir('c:\temp');

  //写入文件
  with TStringList.Create do
  begin
    Add(j1.ToString);
    SaveToFile('JsonTest.txt', TEncoding.UTF8); //结果：{"aaa":"111","bbb":{"aaa":"111"}}
    Free;
  end;
  j1.Free;

  //从文件读取
  with TStringList.Create do
  begin
    LoadFromFile('JsonTest.txt', TEncoding.UTF8);
    j2 := TJSONObject.ParseJSONValue(Text) as TJSONObject;
    Free;
  end;

  Memo1.Text := j2.ToString; //结果：{"aaa":"111","bbb":{"aaa":"111"}}
  j2.Free;
end;

//修改、删除
procedure TForm1.Button10Click(Sender: TObject);
var
  j: TJSONObject;
begin
  j := TJSONObject.Create;
  j.AddPair('aaa', '111');
  j.AddPair('bbb', '222');
  j.AddPair('ccc', '333');

  //修改
  j.Get('aaa').JsonValue := TJSONString.Create('11111'); //TJSONPair 的 JsonString、JsonValue 分别是 键、值
//  j.Pairs[0].JsonValue := TJSONString.Create('11111');

  //删除
  j.RemovePair('bbb');

  Memo1.Lines.Add(j.ToString); //结果：{"aaa":"11111","ccc":"333"}

  j.Free;
end;

//根据路径添加数组的函数:
procedure CreateJSONPathArr(aJson: TJSONObject; const aPath: string; jArr: TJSONArray);
var
  arr: TArray<string>;
  path: string;
  i: Integer;
begin
  arr := aPath.Split(['.'], ExcludeEmpty);
  for i := 0 to Length(arr) - 1 do
  begin
    if not aJson.TryGetValue(arr[i], aJson) then
    begin
      if i = Length(arr) - 1 then
        aJson.AddPair(arr[i], jArr)
      else begin
        aJson.AddPair(arr[i], TJSONObject.Create);
        aJson.TryGetValue(arr[i], aJson);
      end;
    end;
  end;
end;

//调用测试:
var
  j: TJSONObject;
  a: TJSONArray;
begin
  j := TJSONObject.Create;

  a := TJSONArray.Create('11', '22');
  CreateJSONPathArr(j, 'aaa.bbb.ccc', a);

  a := TJSONArray.Create('33', '44');
  CreateJSONPathArr(j, 'aaa.bbb.ddd', a);

  j.Free;
end;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

uses System.JSON;

//TJSONObject

procedure TForm1.Button1Click(Sender: TObject);

var

j: TJSONObject;

begin

j := TJSONObject.Create;

j.AddPair('aa', '111');

j.AddPair('bb', '222');

//输出字符串

Memo1.Text := j.ToString; //结果：{"aa":"111","bb":"222"}

{ToJSON 与 ToString 结果相同，但应尽量使用 ToString 而不是 ToJSON；因为 ToJSON 也是调用 ToString 并且还要重新分配内存}

j.Free;

end;

//TJSONArray

procedure TForm1.Button2Click(Sender: TObject);

var

a: TJSONArray;

begin

a := TJSONArray.Create;

a.Add(1); //TJSONArray 不像传统的数组，它可以接受几种不同类型的值；这应该算是对 Delphi 数组功能的扩充吧。

a.Add(2);

a.Add('aaa');

a.Add('bbb');

Memo1.Text := a.ToString; //结果：[1,2,"aaa","bbb"]

a.Free;

end;

//当 TJSONObject 嵌套其他对象时

procedure TForm1.Button3Click(Sender: TObject);

var

j: TJSONObject;

a: TJSONArray;

begin

j := TJSONObject.Create;

a := TJSONArray.Create('aaa', 'bbb'); //可以使用两个值初始化

a.Add(1);

a.Add(2);

j.AddPair('arr', a);

Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}

// a.Free; {千万不要释放其内部对象，它的父对象会自动释放它}

j.Free;

end;

//变通上例

procedure TForm1.Button4Click(Sender: TObject);

var

j: TJSONObject;

begin

j := TJSONObject.Create;

j.AddPair('arr', TJSONArray.Create);

with j.Values['arr'] as TJSONArray do

begin

Add('aaa');

Add('bbb');

Add(1);

Add(2);

end;

Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}

j.Free;

end;

//再变通

procedure TForm1.Button5Click(Sender: TObject);

var

j: TJSONObject;

a: TJSONArray;

begin

j := TJSONObject.Create;

j.AddPair('arr', TJSONArray.Create);

a := TJSONArray(j.Values['arr']);

a.Add('aaa');

a.Add('bbb');

a.Add(1);

a.Add(2);

Memo1.Text := j.ToString; //结果：{"arr":["aaa","bbb",1,2]}

j.Free;

end;

//添加其他类型的数

procedure TForm1.Button6Click(Sender: TObject);

var

j: TJSONObject;

a: TJSONArray;

begin

j := TJSONObject.Create;

j.AddPair('数值', TJSONNumber.Create(3.1415926));

j.AddPair('布尔真', TJSONTrue.Create);

j.AddPair('布尔假', TJSONFalse.Create);

j.AddPair('空值', TJSONNull.Create);

Memo1.Text := j.ToString; //结果：{"数值":3.1415926,"布尔真":true,"布尔假":false,"空值":null}

j.Free;

end;

//读取

procedure TForm1.Button7Click(Sender: TObject);

var

j: TJSONObject;

str: string;

num: Integer;

arr1,arr2: string;

begin

j := TJSONObject.Create;

j.AddPair('str', '111');

j.AddPair('num', TJSONNumber.Create(222));

j.AddPair('arr', TJSONArray.Create('arr1', 'arr2'));

Memo1.Text := j.ToString; //结果：{"str":"111","num":222,"arr":["arr1","arr2"]}

//JSON 是一组”键值对“，其中的”值“还有可能是”键值对“；

//所以 System.JSON 用 TJSONValue 来表示值类型，它是所有值类型的父类，当然也是 TJSONObject 的父类。

str := j.Values['str'].Value; //Values[] 调用的是 GetValue(), 更喜欢直接用后者

num := j.GetValue('num').Value.ToInteger;

arr1 := TJSONArray(j.GetValue('arr')).Items[0].Value;

arr2 := TJSONArray(j.GetValue('arr')).Items[1].Value;

Memo1.Lines.Add(Format('%s, %d, %s, %s', [str, num, arr1, arr2])); //111, 222, arr1, arr2

j.Free;

end;

//遍历

procedure TForm1.Button8Click(Sender: TObject);

var

j: TJSONObject;

p: TJSONPair;

v: TJSONValue;

i: Integer;

a: TJSONArray;

begin

j := TJSONObject.Create;

j.AddPair('aa', '111');

j.AddPair('bb', '222');

j.AddPair('arr', TJSONArray.Create('arr1', 'arr2'));

//集合遍历 TJSONObject

for p in j do

Memo1.Lines.Add(p.ToString); //"aa":"111" \\ "bb":"222" \\ "arr":["arr1","arr2"]

//索引遍历 TJSONObject, 这里的 Get 函数已不提倡使用了

for i := 0 to j.Count - 1 do

Memo1.Lines.Add(j.Get(i).ToString); //"aa":"111" \\ "bb":"222" \\ "arr":["arr1","arr2"]

//集合遍历 TJSONArray

for v in j.Values['arr'] as TJSONArray do

Memo1.Lines.Add(v.Value); //arr1 \\ arr2

//索引遍历 TJSONArray

a := j.Values['arr'] as TJSONArray;

for i := 0 to a.Count - 1 do

Memo1.Lines.Add(a.Items[i].Value); //arr1 \\ arr2

j.Free;

end;

//存取到文件

procedure TForm1.Button9Click(Sender: TObject);

var

j1,j2: TJSONObject;

begin

//随便虚拟些数据

j1 := TJSONObject.Create(TJSONPair.Create('aaa', '111'));

j1.AddPair('bbb', j1.Clone as TJSONValue);

ChDir('c:\temp');

//写入文件

with TStringList.Create do

begin

Add(j1.ToString);

SaveToFile('JsonTest.txt', TEncoding.UTF8); //结果：{"aaa":"111","bbb":{"aaa":"111"}}

Free;

end;

j1.Free;

//从文件读取

with TStringList.Create do

begin

LoadFromFile('JsonTest.txt', TEncoding.UTF8);

j2 := TJSONObject.ParseJSONValue(Text) as TJSONObject;

Free;

end;

Memo1.Text := j2.ToString; //结果：{"aaa":"111","bbb":{"aaa":"111"}}

j2.Free;

end;

//修改、删除

procedure TForm1.Button10Click(Sender: TObject);

var

j: TJSONObject;

begin

j := TJSONObject.Create;

j.AddPair('aaa', '111');

j.AddPair('bbb', '222');

j.AddPair('ccc', '333');

//修改

j.Get('aaa').JsonValue := TJSONString.Create('11111'); //TJSONPair 的 JsonString、JsonValue 分别是键、值

// j.Pairs[0].JsonValue := TJSONString.Create('11111');

//删除

j.RemovePair('bbb');

Memo1.Lines.Add(j.ToString); //结果：{"aaa":"11111","ccc":"333"}

j.Free;

end;

//根据路径添加数组的函数:

procedure CreateJSONPathArr(aJson: TJSONObject; const aPath: string; jArr: TJSONArray);

var

arr: TArray<string>;

path: string;

i: Integer;

begin

arr := aPath.Split(['.'], ExcludeEmpty);

for i := 0 to Length(arr) - 1 do

begin

if not aJson.TryGetValue(arr[i], aJson) then

begin

if i = Length(arr) - 1 then

aJson.AddPair(arr[i], jArr)

else begin

aJson.AddPair(arr[i], TJSONObject.Create);

aJson.TryGetValue(arr[i], aJson);

end;

//调用测试:

var

j: TJSONObject;

a: TJSONArray;

begin

j := TJSONObject.Create;

a := TJSONArray.Create('11', '22');

CreateJSONPathArr(j, 'aaa.bbb.ccc', a);

a := TJSONArray.Create('33', '44');

CreateJSONPathArr(j, 'aaa.bbb.ddd', a);

j.Free;

end;

转载自：http://www.cnblogs.com/del/p/4225871.html

本作品采用知识共享署名-相同方式共享 4.0 国际许可协议进行许可

hanjian说道：

2017年4月14日下午2:21

支持，只有支持才是访问博客的正确方式！

回复
yihuanghou说道：

2017年4月17日上午8:43

世事无常，但这个博客定能永保辉煌！

回复

向yihuanghou进行回复取消回复

This site uses Akismet to reduce spam. Learn how your comment data is processed.

天舞枫——疯言疯语

tianwufeng

关于内存数据与 JSON【转载】

本作品采用知识共享署名-相同方式共享 4.0 国际许可协议进行许可

向yihuanghou进行回复取消回复

tianwufeng

本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可

向yihuanghou进行回复 取消回复

本作品采用知识共享署名-相同方式共享 4.0 国际许可协议进行许可

向yihuanghou进行回复取消回复