superobject操作.txt

【文件属性】：

文件名称：superobject操作.txt

文件大小：9KB

文件格式：TXT

更新时间：2023-01-03 06:14:22

superobject

superobject使用方法整理。 procedure SaveJson; var json, json_sub: ISuperObject; begin json := SO; json.S['name'] := 'Henri Gourvest'; json.B['vip'] := TRUE; json.O['telephones'] := SA([]); json.A['telephones'].S[0] := '000000000'; json.A['telephones'].S[1] := '111111111111'; json.I['age'] := 33; json.D['size'] := 1.83; json.O['addresses'] := SA([]); json_sub := SO; json_sub.S['address'] := 'blabla'; json_sub.S['city'] := 'Metz'; json_sub.I['pc'] := 57000; json.A['addresses'].Add(json_sub); json_sub.S['address'] := 'blabla'; json_sub.S['city'] := 'Nantes'; json_sub.I['pc'] := 44000; json.A['addresses'].Add(json_sub); json.SaveTo('C:\json_out.txt'); json := nil; json_sub := nil; end;