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 :=0to9do jo.I['N'+ IntToStr(i)] := i;
ShowMessage(jo.AsJSon(True));

for i :=0to9do jo.S['N'+ IntToStr(i)] := IntToStr(i);
ShowMessage(jo.AsJSon(True));

for i :=0to9do jo.B['N'+ IntToStr(i)] := Odd(i);
ShowMessage(jo.AsJSon(True));

for i :=0to9do jo.D['N'+ IntToStr(i)] := i /2;
ShowMessage(jo.AsJSon(True));

for i :=0to9do 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 :=0to ja.Length -1do 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

總結

以上是生活随笔為你收集整理的Json(四)：Json增、删、改的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。