DELPHI XE 2 JSON 生成与解析

一、生成

var
  json: ISuperObject;
  json_sub: array of ISuperObject;
  i: integer;
begin
  json := SO;
  json.S['i'] := '5';
  json.O['show'] := SA([]);
  SetLength(json_sub, 3);
  for i := 0 to Length(json_sub) - 1 do
  begin
    json_sub[i] := SO();
    json_sub[i].i['id'] := i;
    json.A['show'].Add(json_sub[i]);
    json_sub[i] := nil;
  end;
  for i := 0 to Length(json_sub) - 1 do
  begin

  end;
  json.SaveTo('C:\out.txt');
  json := nil;

二、解析

var
  json_array: TSuperArray;
  json: ISuperObject;
  sum: integer;
  i: Integer;
begin
  json := SO(Memo2.Text);
  json_array := json.AsArray;

  sum := json_array.Length;
  for i := 0 to sum - 1 do
  begin
    Memo2.Lines.Add(json_array[i].S['id']);
  end;
  json_array := nil;
  json := nil;

三、说明

只是简单的生成和解析，当作参考吧