Json(四)：Json增、删、改
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
type
TForm1
=
class
(TForm)Button1: TButton;Button2: TButton;Button3: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{
$R *.dfm
}
uses
SuperObject;
//
添加
procedure
TForm1.Button1Click(Sender: TObject);
var
jo: ISuperObject;i: Integer;
begin
jo :
=
TSuperObject.Create;
for
i :
=
0
to
9
do
jo.I[
'
N
'
+
IntToStr(i)] :
=
i;ShowMessage(jo.AsJSon(True));
for
i :
=
0
to
9
do
jo.S[
'
N
'
+
IntToStr(i)] :
=
IntToStr(i);ShowMessage(jo.AsJSon(True));
for
i :
=
0
to
9
do
jo.B[
'
N
'
+
IntToStr(i)] :
=
Odd(i);ShowMessage(jo.AsJSon(True));
for
i :
=
0
to
9
do
jo.D[
'
N
'
+
IntToStr(i)] :
=
i
/
2
;ShowMessage(jo.AsJSon(True));
for
i :
=
0
to
9
do
jo.O[
'
N
'
+
IntToStr(i)] :
=
SO(
'
{"A":"B"}
'
);ShowMessage(jo.AsJSon(True));jo.Clear;ShowMessage(jo.AsJSon(True));
end
;
//
修改与删除
procedure
TForm1.Button2Click(Sender: TObject);
var
jo: ISuperObject;str:
string
;
begin
jo :
=
SO(
'
{"Name":"张三", "Age":88}
'
);ShowMessage(jo.AsJSon(False, False));jo.S[
'
Name
'
] :
=
'
李四
'
;jo.I[
'
Age
'
] :
=
18
;ShowMessage(jo.AsJSon(False, False));jo.Delete(
'
Age
'
);ShowMessage(jo.AsJSon(False, False));jo.D[
'
Size
'
] :
=
1.83
;ShowMessage(jo.AsJSon(False, False));
end
;
//
TSuperArray 的增、删、改与查看
procedure
TForm1.Button3Click(Sender: TObject);
var
jo,item: ISuperObject;ja: TSuperArray;i: Integer;str:
string
;
begin
jo :
=
SO(
'
{"爱好":["编程","打球"]}
'
);ShowMessage(jo.AsJSon(False, False));jo.A[
'
爱好
'
].Add(SO(
'
看电视
'
));ShowMessage(jo.AsJSon(False, False));ja :
=
jo.A[
'
爱好
'
];ja.Add(SO(
'
游泳
'
));ShowMessage(jo.AsJSon(False, False));ja.Insert(
0
, SO(
'
睡觉
'
));ShowMessage(jo.AsJSon(False, False));ja.Delete(
0
);ShowMessage(jo.AsJSon(False, False));ja.D[
0
] :
=
3.14
;ShowMessage(jo.AsJSon(False, False));ja.O[
0
] :
=
SO(
'
{}
'
);ShowMessage(jo.AsJSon(False, False));str :
=
''
;
for
i :
=
0
to
ja.Length
-
1
do
str :
=
Format(
'
%s %s
'
, [str, ja.S[i]]);ShowMessage(Trim(str));str :
=
''
;
for
item
in
jo[
'
爱好
'
]
do
str :
=
Format(
'
%s %s
'
, [str, item.AsString]);ShowMessage(Trim(str));ja.Clear;ShowMessage(jo.AsJSon(False, False));
end
;
end
.
posted on
2011-07-11 17:20
龙七 阅读(
...) 评论(
)
编辑
收藏
转载于:https://www.cnblogs.com/Dragon7/archive/2011/07/11/2103251.html
相关资源：详解利用nodejs对本地json文件进行增删改查
