JSON 之 SuperObject(1)

一直盼着 Delphi 能够直接支持 "正则表达式" 与 "JSON";

Delphi 2009 刚来的时候, 有了 JSON, 但不好, 那时尝试过一点. 这是以前的链接: 什么是 JSON?

Delphi 2010 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递够用了, 但太简陋了, 好像是没写完, 对中文支持也有问题.

我想不等了, 找第三方吧, 真的找到了惊喜: JSON – SuperObject v1.1( 简介、 下载), Henri Gourvest 的大作!

里面还有 XML 相关的一个单元, 慢慢看吧.

---

先来个简单测试:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses SuperObject;



//SuperObject 提倡使用接口; ParseString 是 TSuperObject 类的 Class 方法

procedure TForm1.Button1Click(Sender: TObject);

var

  jo: ISuperObject;

begin

  jo := TSuperObject.ParseString('{"No1":"张三", "No2":"李四"}');

  ShowMessage(jo['No1'].AsString); {张三}

end;



//有个共用函数 SO, 可方便实现接口

procedure TForm1.Button2Click(Sender: TObject);

var

  jo: ISuperObject;

begin

  jo := SO('{"No1":"张三", "No2":"李四"}');

  ShowMessage(jo['No2'].AsString); //李四

end;



end.


 
   

为什么以用接口为主?

我猜是: 一个 JSON 对象中可能包含的子对象太多, 用接口释放比较方便, 因为是自动释放;

另外, Delphi 2010 新给的 IOUntils 单元的功能是用结构的方式给出, 结构也是自释放的;

自动释放! 这会是个方向吗? 不过这样的确会少写很多代码.

---