SuperObject 構建一個 JSON 的常用方法: 從字符串、從文件、從流.

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses SuperObject;const JsonStr = '{"No1":"張三", "No2":"李四"}';//從字符串構建 procedure TForm1.Button1Click(Sender: TObject); varjo: ISuperObject; beginjo := SO(JsonStr);{或者用使用下面語句, SO 函數就是調用了 TSuperObject.ParseString}//jo := TSuperObject.ParseString(JsonStr);ShowMessage(jo.AsJSon(True, False)); end;//從文件構建 procedure TForm1.Button2Click(Sender: TObject); constpath = 'c:\temp\json.txt'; varjo: ISuperObject; begin{產生個測試文件; SuperObject 對中文支持也不太好, 讀取它自己保存的文件吧}SO(JsonStr).SaveTo(path); {這就產生并保存了 json 文件}jo := TSuperObject.ParseFile(path);ShowMessage(jo.AsJSon(True, False)); end;//從流構建 procedure TForm1.Button3Click(Sender: TObject); varjo: ISuperObject;stm: TStream;b: Byte; begin{模擬個測試流; 看看它能接受的編碼夠原始的, 它存取文件也是如此}stm := TStringStream.Create('{"No2":"\u674e\u56db","No1":"\u5f20\u4e09"}');jo := TSuperObject.ParseStream(stm);ShowMessage(jo.AsJSon(True, False));stm.Free; end;//AsJSon 的參數 procedure TForm1.Button4Click(Sender: TObject); varjo: ISuperObject; beginjo := SO(JsonStr);ShowMessage(jo.AsJSon);ShowMessage(jo.AsJSon(True));ShowMessage(jo.AsJSon(True, False));ShowMessage(jo.AsJSon(False, False)); end;end.

轉載于:https://www.cnblogs.com/del/archive/2009/10/23/1588622.html

超強干貨來襲 云風專訪：近40年碼齡，通宵達旦的技術人生

總結

以上是生活随笔為你收集整理的JSON 之 SuperObject(2): 构建方式与 AsJSon的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。