TJSONData

type TJSONData = class(TObject)

protected

  class procedure DoError();

  function DoFindPath(); virtual;

  function GetAsBoolean; virtual; abstract;

  function GetAsFloat; virtual; abstract;

  function GetAsInteger; virtual; abstract;

  function GetIsNull; virtual;

  function GetAsInt64; virtual; abstract;

  function GetAsQWord; virtual; abstract;

  function GetAsUnicodeString; virtual;

  procedure SetAsInt64(); virtual; abstract;

  procedure SetAsQword(); virtual; abstract;

  procedure SetAsUnicodeString(); virtual;

  procedure SetAsBoolean(); virtual; abstract;

  procedure SetAsFloat(); virtual; abstract;

  procedure SetAsInteger(); virtual; abstract;

  function GetAsJSON; virtual; abstract;

  function GetAsString; virtual; abstract;

  procedure SetAsString(); virtual; abstract;

  function GetValue; virtual; abstract;

  procedure SetValue(); virtual; abstract;

  function GetItem(); virtual;

  procedure SetItem(); virtual;

  function DoFormatJSON(); virtual;

  function GetCount; virtual;

public

  class function JSONType; virtual;

  property CompressedJSON: Boolean; [rw]

  constructor Create; virtual;

  procedure Clear; virtual; abstract;

  procedure DumpJSON();

  function GetEnumerator; virtual;

  function FindPath();

  function GetPath();

  function Clone; virtual; abstract;

  function FormatJSON();

  property Count: Integer; [r]

  property Items []: TJSONData; [rw]

  property Value: TJSONVariant; [rw]

  property AsString: TJSONStringType; [rw]

  property AsUnicodeString: TJSONUnicodeStringType; [rw]

  property AsInt64: Int64; [rw]

  property AsQWord: QWord; [rw]

  property AsLargeInt: TJSONLargeInt; [rw]

  property AsFloat: TJSONFloat; [rw]

  property AsInteger: Integer; [rw]

  property AsBoolean: Boolean; [rw]

  property IsNull: Boolean; [r]

  property AsJSON: TJSONStringType; [r]

end;

TJSONData

TObject