Delphi中使用ISuperObject解析Json數據

　　下麵先說一下ISuperObject中幾個常用的函數

• function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函數傳入json數據字元串，並返回一個ISuperObject對象，這一般是我們解析json時使用的第一個函數，如jObj := SO(jsonstr)。
• property O[const path: SOString]: ISuperObject read GetO write PutO; default; 如：jobj.O[‘username’]，此函數被一個ISuperObject對象調用，方括弧內的字元串為json中的欄位名稱，返回一個ISuperObject對象。
• property S[const path: SOString]: SOString read GetS write PutS; 此函數被一個ISuperObject對象調用，和O[‘username’]不同的是，它返回的是一個SoString，即一個字元串，使用方法 str := jObj.S[‘username’]; 同理的還有其他幾個類似的函數，如I[‘age’]返回整數，B[‘isenable’]返回布爾型，A[‘users’]返回一個TSuperArray數組
• AsString, AsBoolean, AsInteger,AsArray，ISuperObject的函數，用來把ISuperObject轉換成相應的數據類型。

　　下麵我們看一個演示代碼，json數據如下

{
    "retcode": "1", 
    "datafrom": "server",
    "users": "[{\"id\":1, \"username\": \"liuderu\", \"website\": \"bcoder.com\"},{\"id\":2, \"username\": \"Jeoe\", \"website\": \"baidu.com\"}]"
}

Delphi版本2010，代碼如下：

unit uFmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, superobject;

type
  TFmMain = class(TForm)
    Memo1: TMemo;
    ListView1: TListView;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmMain: TFmMain;

implementation

{$R *.dfm}

procedure TFmMain.BitBtn1Click(Sender: TObject);
var
  jRet, jUsers: ISuperObject;
  aryUsers: TSuperArray;
  retCode: integer;
  strUsers: string;
  i: integer;
begin
  jRet := SO(Memo1.Text);
  if (jRet.O['retcode'] <> nil) then begin
    retCode := jRet.O['retcode'].AsInteger;
    Label1.Caption := '返回值：' + IntToStr(retCode) + ';  數據來源：' + jRet.O['datafrom'].AsString;

    if(jRet.O['retcode'].AsInteger = 1) then begin
      strUsers := jRet.O['users'].AsString;
      jUsers := SO(strUsers);
      aryUsers := jUsers.AsArray;
      for I := 0 to aryUsers.Length - 1 do begin
        with  ListView1.Items.Add do begin
          Caption := aryUsers[i].O['id'].AsString;
          SubItems.Add(aryUsers[i].O['username'].AsString);
          SubItems.Add(aryUsers[i].O['website'].AsString);
        end;
      end;
    end;
  end;
end;

end.