JSON положить объект в объект

[Dozent]

Добрый день, никогда не работал с JSON. Начинаю по тихому разбираться!

Мне нужно положить объект в объект. Нашёл такой пример.

{добавляем в объект ещё один объект}
  InnerObject:=TJSONObject.Create;
  InnerObject.AddPair('Inner_StringPair','Hello World!');
  JSONObject.AddPair(TJSONPair.Create('InnerObject',InnerObject));

Пробую у себя

procedure TForm1.Button1Click(Sender: TObject);
var
  jsObject, jsExObject: TJSONObject;
begin
  jsObject := TJSONObject.Create();
  jsExObject := TJSONObject.Create();
  try
    jsObject.AddPair('id', Format('%s', ['123']));
    //
    jsExObject.AddPair('scenid', TJSONNumber.Create(128));
    jsExObject.AddPair('user', TJSONNumber.Create(125));
    //
    jsObject.AddPair('exercise', jsExObject);
  finally
    FreeAndNil(jsObject);
    FreeAndNil(jsExObject);
  end;
  Memo1.Text := jsObject.ToString;
end;

выходит ошибка "Invalid point operation"

Подскажите что не так?

Нужна такая структура:

{
"id": "GUID клиента",
"exercise":
{
"scenid": 26,
"user": 1
}
}

[lomastr_]

а почему не как в примере?

[Dozent]

procedure TForm1.Button1Click(Sender: TObject);
var
  jsObject, jsExObject: TJSONObject;
begin
  jsObject := TJSONObject.Create();
  jsExObject := TJSONObject.Create();
  try
    jsObject.AddPair('id', Format('%s', ['123']));
    //
    // jsExObject.AddPair('scenid', TJSONNumber.Create(128));
    // jsExObject.AddPair('user', TJSONNumber.Create(125));
    jsExObject.AddPair('user', '321');
    //
    jsObject.AddPair(TJSONPair.Create('exercise', jsExObject));
  finally
    FreeAndNil(jsObject);
    FreeAndNil(jsExObject);
  end;
  Memo1.Text := jsObject.ToString;
end;

Да та же ошибка!

[Аватар]

Закомментируй

FreeAndNil(jsExObject);

[Dozent]

хм! Страно! Даже не подумал! Но помогло!

[Dozent]

А убивать тогда как правильно тут?

[Аватар]

FreeAndNil(jsObject); убивает все вложенное

[Dozent]

function TTransport.GetNetMessageToActionScenario(StateScenario: string; ScenarioID, UserID: integer): string;
var
  jsObject, jsExObject: TJSONObject;
begin
  Result := '';
  jsObject := TJSONObject.Create();
  jsExObject := TJSONObject.Create();
  try
    jsObject.AddPair('id', Format('%s', ['123']));
    //
    jsExObject.AddPair('scenid', TJSONNumber.Create(128));
    jsExObject.AddPair('user', TJSONNumber.Create(125));
    //
    jsObject.AddPair(TJSONPair.Create('exercise', jsExObject));
    Result := jsObject.ToString;
  finally
    FreeAndNil(jsObject);
  end;
end;