type TCustomJSONPropStorage = class(TFormPropertyStorage) end;

protected

  function GetJSONFileName; virtual;

Getter for the property TCustomJSONPropStorage.JSONFileName.

  function RootSection; override;

Returns the name of the RootSection.

  function GetFormatted;

Getter for the property TCustomJSONPropStorage.Formatted.

  procedure SetFormatted();

Setter for the property TCustomJSONPropStorage.Formatted.

  function FixPath(); virtual;

Turns '.' notation into '/' notation for the xpath-ish JSONConf underlayer.

  property JSONConf: TJSONConfig; [r]

Instance of the object that implements a generic path/value pair storage.

public

  procedure StorageNeeded(); override;

Aks the underlying storage object for an entry

  procedure FreeStorage; override;

Frees an entry from the underlying storage object.

  function DoReadString(); override;

Implements the actual reading of a value from the underlying storage container.

  procedure DoWriteString(); override;

Implements the actual writing of a value from the underlying storage container.

  procedure DoEraseSections(); override;

Erases a section from the underlying storage container.

  property JSONFileName: string; [rw]

Name of the file where the property data is saved in JSON format.

  property RootObjectPath: string; [rw]

Name of the root object path on your JSON file.

  property Formatted: Boolean; [rw]

This determines if the JSON is to be formatted or not.

TCustomJSONPropStorage

Implements the base class for the JSON Form's Session Properties Storage.

TFormPropertyStorage

TObject