TJSONConfig

type TJSONConfig = class(TComponent)

protected

  FJSON: TJSONObject;

  FModified: Boolean;

  procedure LoadFromFile();

  procedure LoadFromStream(); virtual;

  procedure Loaded; override;

  function FindNodeForValue();

  function FindPath();

  function FindObject();

  function FindElement();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Reload;

  procedure Clear;

  procedure Flush;

  procedure OpenKey();

  procedure CloseKey;

  procedure ResetKey;

  procedure EnumSubKeys();

  procedure EnumValues();

  function GetValue();

  procedure SetValue();

  procedure SetDeleteValue();

  procedure DeletePath();

  procedure DeleteValue();

  property Modified: Boolean; [r]

published

  property Filename: string; [rw]

  property Formatted: Boolean; [rw]

  property FormatOptions: TFormatOptions; [rw]

  property FormatIndentsize: Integer; [rw]

  property JSONOptions: TJSONOptions; [rw]

end;

TJSONConfig

TObject