JSON 之 SuperObject(4): 增、删、改

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.