1

2

3

4

5

{

  "retcode": "1",

  "datafrom": "server",

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

}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

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.