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.

轉自：https://www.cnblogs.com/del/archive/2009/10/23/1588819.html