delphiXE 使用json对象时只释放容器对象即可，子对象不用释放，释放子对象会出现异常。

var
  aa: TJsonArray;
  bb, cc: TJSONObject;
  i, j, k: integer;
begin
  //for i := 0 to 1000 do
  begin
    aa := TJsonArray.Create;
    try
      for j := 0 to 100 do
      begin

        bb := TJSONObject.Create;
        for k := 0 to 10 do
        begin
          bb.AddPair(inttostr(k), inttostr(k + 1));
        end;

        cc := TJSONObject.Create;
        cc.AddPair('tablename1', bb);

        aa.Add(cc);

      end;
      self.Memo1.Text := aa.ToString;
    finally
      aa.Free;
    end;
  end;
end;

更多0