JSON 之 SuperObject(1)
来源:互联网 发布:淘宝店铺地址格式 编辑:程序博客网 时间:2024/05/17 08:00
一直盼着 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 单元的功能是用结构的方式给出, 结构也是自释放的;
自动释放! 这会是个方向吗? 不过这样的确会少写很多代码.
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 单元的功能是用结构的方式给出, 结构也是自释放的;
自动释放! 这会是个方向吗? 不过这样的确会少写很多代码.
0 0
- JSON 之 SuperObject(1)
- JSON 之 SuperObject(1)
- JSON 之 SuperObject(3): 访问
- JSON 之 SuperObject(6): 方法
- JSON 之 SuperObject(9): TSuperType
- JSON 之 SuperObject(3): 访问
- JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...
- JSON 之 SuperObject(4): 增、删、改
- JSON 之 SuperObject(10): Merge、Clone、ForcePath
- JSON 之 SuperObject(13): 关于 SO 与 SA 函数
- JSON 之 SuperObject(2): 构建方式与 AsJSon
- JSON 之 SuperObject(5): Format 与转义字符
- JSON 之 SuperObject(7): 可以省略的双引号
- JSON 之 SuperObject(14): 从 XML 中解析
- JSon SuperObject 研究
- SuperObject的JSON使用方法
- SuperObject
- Delphi7下SuperObject的JSON使用方法
- java 反射
- <LeetCode OJ> 110. Balanced Binary Tree
- JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...
- A*搜索算法
- spring aop报错:Cannot proxy target class because CGLIB2 is not available.
- JSON 之 SuperObject(1)
- Web 开发工具类(1): CookieUtils
- linux内核read操作源代码分析
- QT中QWidget、QDialog及QMainWindow的区别
- JSON 之 SuperObject(2): 构建方式与 AsJSon
- E-easy problem
- Android Studio中的项目 和引用Library中的minSdkVersion要 一致。
- JSON 之 SuperObject(3): 访问
- 图论:最短路径搜索--Dijkstra算法(c代码实现)