TJSONObject

type TJSONObject = class(TJSONValue)

protected

  procedure BuildJSONString(); override;

  function GetValueType; override;

  function GetValueObject; override;

  function GetValueIsObject; override;

public

  constructor Create;

  destructor Destroy; override;

  function Clone; override;

  procedure Clear;

  property Count: Integer; [r]

  property Item []: TJSONValue; default; [r]

  procedure Add();

  function Exists();

  function ItemIsNull();

  function GetItemAsStr();

  function GetItemAsStrUTF8();

  function GetItemAsInt();

  function GetItemAsFloat();

  function GetItemAsBoolean();

  function GetItemAsArray();

  function GetItemAsObject();

  function GetItemAsVariant();

  function RequireItemAsArray();

  function RequireItemAsObject();

  procedure SetItemAsStr();

  procedure SetItemAsStrUTF8();

  procedure SetItemAsInt();

  procedure SetItemAsFloat();

  procedure SetItemAsBoolean();

  procedure SetItemAsVariant();

  function Iterate();

  function IterateNext();

  procedure IterateClose();

  function Compare(); override;

  procedure Validate(); override;

end;

TJSONObject

TJSONValue

TObject