TJSONString

type TJSONString = class(TJSONValue)

protected

  procedure BuildJSONString(); override;

  function GetValueType; override;

  function GetValueStr; override;

  function GetValueInt; override;

  function GetValueFloat; override;

  function GetValueBoolean; override;

  function GetValueVariant; override;

  function GetValueIsStr; override;

  procedure SetValueStr(); override;

  procedure SetValueInt(); override;

  procedure SetValueFloat(); override;

  procedure SetValueBoolean(); override;

public

  constructor Create();

  constructor CreateUTF8();

  function Clone; override;

  property Value: UnicodeString; [r]

  function Compare(); override;

  procedure Validate(); override;

end;

TJSONString

TJSONValue

TObject