TJsonObject에 타입별로 값 넣기

uses
  .., JSON;

var
  obj : TJSONObject;
begin
  obj := TJSONObject.Create;

  try
    obj.AddPair('Integer Value', TJSONNumber.Create(1234));
    obj.AddPair('String Value', TJSONString.Create('Test'));  
  finally
    obj.Free;
  end;
end;

- Null (TJSONNull)

- Boolean(TJSONBool)

- Number (TJSONNumber)

- String (TJSONString)

- Array (TJSONArray)

- Object (TJSONObject)

  

참고 : http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.JSON