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