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 .