TJSONValue

type TJSONValue = class

protected

  procedure BuildJSONString(); virtual;

  function GetValueType; virtual;

  function GetValueStr; virtual;

  function GetValueStrUTF8;

  function GetValueInt; virtual;

  function GetValueFloat; virtual;

  function GetValueBoolean; virtual;

  function GetValueArray; virtual;

  function GetValueObject; virtual;

  function GetValueVariant; virtual;

  procedure SetValueStr(); virtual;

  procedure SetValueStrUTF8(); virtual;

  procedure SetValueInt(); virtual;

  procedure SetValueFloat(); virtual;

  procedure SetValueBoolean(); virtual;

  procedure SetValueVariant(); virtual;

  function GetValueIsStr; virtual;

  function GetValueIsInt; virtual;

  function GetValueIsFloat; virtual;

  function GetValueIsBoolean; virtual;

  function GetValueIsNull; virtual;

  function GetValueIsArray; virtual;

  function GetValueIsObject; virtual;

public

  function Clone; virtual;

  function GetJSONString();

  function GetJSONStringUTF8();

  property ValueType: TJSONValueType; [r]

  property ValueStr: UnicodeString; [rw]

  property ValueStrUTF8: RawByteString; [rw]

  property ValueInt: Int64; [rw]

  property ValueFloat: JSONFloat; [rw]

  property ValueBoolean: Boolean; [rw]

  property ValueArray: TJSONArray; [r]

  property ValueObject: TJSONObject; [r]

  property ValueVariant: Variant; [rw]

  property ValueIsStr: Boolean; [r]

  property ValueIsInt: Boolean; [r]

  property ValueIsFloat: Boolean; [r]

  property ValueIsBoolean: Boolean; [r]

  property ValueIsNull: Boolean; [r]

  property ValueIsArray: Boolean; [r]

  property ValueIsObject: Boolean; [r]

  function Compare(); virtual;

  procedure Validate(); virtual;

end;

TJSONValue

TObject