TJSONInteger

type TJSONInteger = 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 GetValueIsInt; override;

  procedure SetValueStr(); override;

  procedure SetValueInt(); override;

  procedure SetValueBoolean(); override;

public

  constructor Create();

  function Clone; override;

  property Value: Int64; [r]

  function Compare(); override;

  procedure Validate(); override;

end;

TJSONInteger

TJSONValue

TObject