Merge branch 'develop'

Quick.Config.Base.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.5
   Created     : 26/01/2017
-  Modified    : 21/01/2019
+  Modified    : 25/01/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -41,14 +41,13 @@ uses
   fpjson,
   jsonparser,
   fpjsonrtti,
-  Quick.Json.Serializer;
   {$ELSE}
-  Quick.Json.Serializer,
   DBXJSON,
   System.JSON,
   Rest.Json.Types,
-  Rest.Json;
+  Rest.Json,
   {$ENDIF}
+  Quick.Json.Serializer;
 
 type
 
@@ -104,6 +103,8 @@ type
     {$IFDEF DELPHIRX102_UP}[JsonIgnoreAttribute]{$ENDIF}
     property LastSaved : TDateTime read fLastSaved write fLastSaved;
     procedure Apply;
+    //override this method to provide your class initialization
+    procedure Init; virtual;
     procedure DefaultValues; virtual;
     procedure Load; virtual;
     procedure Save; virtual;
@@ -111,6 +112,8 @@ type
     procedure FromJSON(const json : string);
   end;
 
+  EAppConfig = class(Exception);
+
 implementation
 
 
@@ -129,6 +132,7 @@ begin
   fProvider := aConfigProvider;
   fJsonIndent := True;
   fLastSaved := 0;
+  Init;
 end;
 
 procedure TAppConfig.Apply;
@@ -156,7 +160,7 @@ begin
   try
     serializer := TJsonSerializer.Create(slPublishedProperty);
     try
-      Result := serializer.ObjectToJSON(Self,True);
+      Result := serializer.ObjectToJSON(Self,fJsonIndent);
     finally
       serializer.Free;
     end;
@@ -172,11 +176,7 @@ begin
   try
     serializer := TJsonSerializer.Create(slPublishedProperty);
     try
-      {$IF NOT DEFINED(FPC) AND DEFINED(NEXTGEN)}
       serializer.JsonToObject(Self,json);
-      {$ELSE}
-      Self := TAppConfig(serializer.JsonToObject(Self,json));
-      {$ENDIF}
     finally
       serializer.Free;
     end;
@@ -185,14 +185,22 @@ begin
   end;
 end;
 
+procedure TAppConfig.Init;
+begin
+  //override to create private classes
+end;
+
 procedure TAppConfig.Load;
 begin
+  if not Assigned(fProvider) then raise EAppConfig.Create('No provider assigned!');
   fProvider.Load(Self);
 end;
 
 procedure TAppConfig.Save;
 begin
+  if not Assigned(fProvider) then raise EAppConfig.Create('No provider assigned!');
   fProvider.Save(Self);
+  fLastSaved := Now();
 end;
 
 end.

Quick.Config.Json.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.5
   Created     : 21/10/2017
-  Modified    : 17/01/2019
+  Modified    : 25/01/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -49,25 +49,50 @@ uses
   Rest.Json.Types,
   System.JSON,
   {$ENDIF}
+  Quick.FileMonitor,
   Quick.Config.Base;
 
 type
 
+  TFileModifiedEvent = procedure of object;
+  TLoadConfigEvent = procedure of object;
+
   TAppConfigJsonProvider = class(TAppConfigProvider)
   private
     fFilename : string;
+    fFileMonitor : TFileMonitor;
+    fOnFileModified : TFileModifiedEvent;
+    fLoaded : Boolean;
+    fReloadIfFileChanged : Boolean;
+    fOnConfigLoaded : TLoadConfigEvent;
+    fOnConfigReloaded : TLoadConfigEvent;
+    fNotifyReload : TLoadConfigEvent;
+    procedure CreateFileMonitor;
+    procedure FileModifiedNotify(MonitorNotify : TMonitorNotify);
+    procedure SetFileName(const Value: string);
+    procedure SetReloadIfFileChanged(const Value: Boolean);
+    procedure SetReloadNotify(aNotifyReload : TLoadConfigEvent);
+    procedure DoNofifyReload;
+  protected
     procedure Load(cConfig : TAppConfig); override;
     procedure Save(cConfig : TAppConfig); override;
   public
-    constructor Create(const aFilename : string = ''); virtual;
-    property Filename : string read fFilename write fFilename;
+    constructor Create(const aFilename : string; aReloadIfFileChanged : Boolean = False); virtual;
+    destructor Destroy; override;
+    property Filename : string read fFilename write SetFileName;
+    property ReloadIfFileChanged : Boolean read fReloadIfFileChanged write SetReloadIfFileChanged;
+    property IsLoaded : Boolean read fLoaded;
+    property OnFileModified : TFileModifiedEvent read fOnFileModified write fOnFileModified;
+    property OnConfigLoaded : TLoadConfigEvent read fOnConfigLoaded write fOnConfigLoaded;
+    property OnConfigReloaded : TLoadConfigEvent read fOnConfigReloaded write fOnConfigReloaded;
   end;
 
   TAppConfigJson = class(TAppConfig)
   private
     function GetProvider : TAppConfigJsonProvider;
+    procedure ReloadNotify;
   public
-    constructor Create(const aFileName : string = ''); overload; virtual;
+    constructor Create(const aFilename : string; aReloadIfFileChanged : Boolean = False); virtual;
     destructor Destroy; override;
     property Provider : TAppConfigJsonProvider read GetProvider;
   end;
@@ -94,11 +119,45 @@ type
 
 implementation
 
-constructor TAppConfigJsonProvider.Create(const aFilename : string = '');
+constructor TAppConfigJsonProvider.Create(const aFilename : string; aReloadIfFileChanged : Boolean = False);
 begin
   inherited Create;
   if aFilename = '' then fFilename := TPath.ChangeExtension(ParamStr(0),'json')
     else fFilename := aFilename;
+  fLoaded := False;
+  fReloadIfFileChanged := aReloadIfFileChanged;
+  if aReloadIfFileChanged then CreateFileMonitor;
+end;
+
+procedure TAppConfigJsonProvider.CreateFileMonitor;
+begin
+  fFileMonitor := TQuickFileMonitor.Create;
+  fFileMonitor.FileName := fFilename;
+  fFileMonitor.Interval := 2000;
+  fFileMonitor.Notifies := [TMonitorNotify.mnFileModified];
+  fFileMonitor.OnFileChange := FileModifiedNotify;
+  fFileMonitor.Enabled := True;
+end;
+
+destructor TAppConfigJsonProvider.Destroy;
+begin
+  if Assigned(fFileMonitor) then fFileMonitor.Free;
+  inherited;
+end;
+
+procedure TAppConfigJsonProvider.DoNofifyReload;
+begin
+  if Assigned(fNotifyReload) then fNotifyReload
+    else raise EAppConfig.Create('Not config assigned to reload!');
+end;
+
+procedure TAppConfigJsonProvider.FileModifiedNotify(MonitorNotify : TMonitorNotify);
+begin
+  if MonitorNotify = TMonitorNotify.mnFileModified then
+  begin
+    if Assigned(fOnFileModified) then fOnFileModified;
+    if fReloadIfFileChanged then DoNofifyReload;
+  end;
 end;
 
 procedure TAppConfigJsonProvider.Load(cConfig : TAppConfig);
@@ -106,9 +165,6 @@ var
   json : TStrings;
   Serializer : TJsonSerializer;
 begin
-  //create object with rtti if nil
-  //if not Assigned(Config) then Config := InitObject;
-
   if (not FileExists(fFilename)) and (CreateIfNotExists) then
   begin
     TAppConfig(cConfig).DefaultValues;
@@ -130,8 +186,14 @@ begin
     finally
       json.Free;
     end;
+    if not fLoaded then
+    begin
+      fLoaded := True;
+      if Assigned(fOnConfigLoaded) then fOnConfigLoaded;
+    end
+    else if Assigned(fOnConfigReloaded) then fOnConfigReloaded;
   except
-    on e : Exception do raise e;
+    on e : Exception do raise EAppConfig.Create(e.Message);
   end;
 end;
 
@@ -139,11 +201,8 @@ procedure TAppConfigJsonProvider.Save(cConfig : TAppConfig);
 var
   json : TStrings;
   Serializer : TJsonSerializer;
-  ctx : TRttiContext;
-  rprop : TRttiProperty;
 begin
-  //create object with rtti if nil
-  if not Assigned(cConfig) then cConfig := TAppConfigJson.Create;
+  if not Assigned(cConfig) then cConfig := TAppConfigJson.Create(fFilename,fReloadIfFileChanged);
 
   try
     json := TStringList.Create;
@@ -157,21 +216,40 @@ begin
         serializer.Free;
       end;
       json.SaveToFile(fFilename);
-      cConfig.LastSaved := Now;
     finally
       json.Free;
     end;
   except
-    on e : Exception do raise e;
+    on e : Exception do raise EAppConfig.Create(e.Message);
   end;
 end;
 
 
+procedure TAppConfigJsonProvider.SetFileName(const Value: string);
+begin
+  fFilename := Value;
+  if Assigned(fFileMonitor) then fFileMonitor.Free;
+  if fReloadIfFileChanged then CreateFileMonitor;
+end;
+
+procedure TAppConfigJsonProvider.SetReloadIfFileChanged(const Value: Boolean);
+begin
+  fReloadIfFileChanged := Value;
+  if Assigned(fFileMonitor) then fFileMonitor.Free;
+  if fReloadIfFileChanged then CreateFileMonitor;
+end;
+
+procedure TAppConfigJsonProvider.SetReloadNotify(aNotifyReload: TLoadConfigEvent);
+begin
+  fNotifyReload := aNotifyReload;
+end;
+
 { TAppConfigJson }
 
-constructor TAppConfigJson.Create(const aFileName : string = '');
+constructor TAppConfigJson.Create(const aFilename : string; aReloadIfFileChanged : Boolean = False);
 begin
-  inherited Create(TAppConfigJsonProvider.Create(aFileName));
+  inherited Create(TAppConfigJsonProvider.Create(aFileName,aReloadIfFileChanged));
+  TAppConfigJsonProvider(fProvider).SetReloadNotify(ReloadNotify);
 end;
 
 destructor TAppConfigJson.Destroy;
@@ -181,7 +259,13 @@ end;
 
 function TAppConfigJson.GetProvider: TAppConfigJsonProvider;
 begin
+  if not Assigned(fProvider) then raise EAppConfig.Create('No provider assigned!');
   Result := TAppConfigJsonProvider(fProvider);
 end;
 
+procedure TAppConfigJson.ReloadNotify;
+begin
+  Self.Load;
+end;
+
 end.

Quick.Config.Registry.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.5
   Created     : 21/10/2017
-  Modified    : 17/01/2019
+  Modified    : 25/01/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -127,7 +127,7 @@ begin
   if aHRoot <> HKEY_CURRENT_USER then fRootKey := aHRoot
     else fRootKey := HKEY_CURRENT_USER;
   if aMainKey <> '' then fMainKey := aMainKey
-    else fMainKey := '_AppConfig';
+    else fMainKey := ExtractFileNameWithoutExt(ParamStr(0));
   fRegConfig := TRegistry.Create(KEY_READ or KEY_WRITE);
 end;
 
@@ -234,8 +234,12 @@ begin
     end;
     if fRegConfig.KeyExists(aCurrentKey + '_bak') then fRegConfig.DeleteKey(aCurrentKey + '_bak');
   except
-    fRegConfig.DeleteKey(aCurrentKey);
-    fRegConfig.MoveKey(aCurrentKey+'_bak',aCurrentKey,True);
+    on E : Exception do
+    begin
+      fRegConfig.DeleteKey(aCurrentKey);
+      fRegConfig.MoveKey(aCurrentKey+'_bak',aCurrentKey,True);
+      raise EAppConfig.Create(e.message);
+    end;
   end;
 end;
 
@@ -324,6 +328,7 @@ var
 begin
   Result := False;
   if cCurrentKey <> '' then fRegConfig.OpenKeyReadOnly(cCurrentKey);
+  // else Exit;
   //check if exists RegKey numeric (indicates is a Array)
   RegKeyList := TStringList.Create;
   try
@@ -354,15 +359,15 @@ end;
 
 class function TAppConfigRegistryProvider.IsSimpleJsonValue(v: TJSONValue): Boolean;
 begin
-  Result := (v is TJSONNumber)
-    or (v is TJSONString)
+  Result := (v is {$IFDEF FPC}fpjson.TJsonIntegerNumber{$ELSE}TJSONNumber{$ENDIF})
+    or (v is {$IFDEF FPC}fpjson.{$ENDIF}TJSONString)
     {$IFNDEF FPC}
     or (v is TJSONTrue)
     or (v is TJSONFalse)
     {$ELSE}
-    or (v is TJsonBool)
+    or (v is {$IFDEF FPC}fpjson.TJSONBoolean{$ELSE}TJsonBool{$ENDIF})
     {$ENDIF}
-    or (v is TJSONNull);
+    or (v is {$IFDEF FPC}fpjson.{$ENDIF}TJSONNull);
 end;
 
 function TAppConfigRegistryProvider.ReadRegValue(const cCurrentKey, cName : string) : TJSONValue;
@@ -398,11 +403,15 @@ var
   aValue : string;
 begin
   aName := cName.DeQuotedString('"');
+  {$IFNDEF FPC}
   aValue := cValue.ToString.DeQuotedString('"');
+  {$ELSE}
+  aValue := cValue.AsString;// .DeQuotedString('"');
+  {$ENDIF}
   fRegConfig.OpenKey(cCurrentKey,True);
-  if cValue is TJSONNumber then  fRegConfig.WriteInteger(aName,StrToInt64(aValue))
-   else if cValue is TJSONString then fRegConfig.WriteString(aName,aValue)
-    else if cValue is TJSONBool then fRegConfig.WriteString(aName,aValue);
+  if cValue is {$IFDEF FPC}fpjson.TJSONIntegerNumber{$ELSE}TJSONNumber{$ENDIF} then fRegConfig.WriteInteger(aName,StrToInt64(aValue))
+   else if cValue is {$IFDEF FPC}fpjson.{$ENDIF}TJSONString then fRegConfig.WriteString(aName,aValue)
+    else if cValue is {$IFDEF FPC}fpjson.TJSONBoolean{$ELSE}TJSONBool{$ENDIF} then fRegConfig.WriteString(aName,aValue);
       //else if cValue is TJSONNull then fRegConfig.WriteString(aName,'');
 end;
 
@@ -420,7 +429,14 @@ begin
   //read root values
   RegValueList := TStringList.Create;
   try
+    {$IFNDEF FPC}
     fRegConfig.GetValueNames(RegValueList);
+    {$ELSE}
+    try
+      fRegConfig.GetValueNames(RegValueList);
+    except
+    end;
+    {$ENDIF}
     for RegValue in RegValueList do
     begin
       newObj.AddPair(RegValue,ReadRegValue(cCurrentKey,RegValue));
@@ -431,7 +447,14 @@ begin
   //read root keys
   RegKeyList := TStringList.Create;
   try
+    {$IFNDEF FPC}
     fRegConfig.GetKeyNames(RegKeyList);
+    {$ELSE}
+    try
+      fRegConfig.GetKeyNames(RegKeyList);
+    except
+    end;
+    {$ENDIF}
     for RegKey in RegKeyList do
     begin
       fRegConfig.OpenKeyReadOnly(cCurrentKey + '\' + RegKey);
@@ -514,13 +537,13 @@ begin
     Exit;
   end;
 
-  if jPair.JsonValue is TJSONObject then
+  if jPair.JsonValue is {$IFDEF FPC}fpjson.{$ENDIF}TJSONObject then
   begin
     aCount := TJSONObject(jPair.JsonValue).Count;
     for i := 0 to aCount - 1 do
       ProcessPairWrite(cCurrentKey + '\' + jPair.JsonString{$IFNDEF FPC}.ToString{$ENDIF}.DeQuotedString('"'), TJSONObject(jPair.JsonValue),i);
   end
-  else if jPair.JsonValue is TJSONArray then
+  else if jPair.JsonValue is {$IFDEF FPC}fpjson.{$ENDIF}TJSONArray then
   begin
     aCount := TJSONArray(jPair.JsonValue).Count;
     for i := 0 to aCount - 1 do
@@ -545,13 +568,13 @@ begin
     Exit;
   end;
 
-  if jValue is TJSONObject then
+  if jValue is {$IFDEF FPC}fpjson.{$ENDIF}TJSONObject then
   begin
     aCount := TJSONObject(jValue).Count;
     for i := 0 to aCount - 1 do
       ProcessPairWrite(cCurrentKey + '\' + Zeroes(aIndex,dig),TJSONObject(jValue),i);
   end
-  else if jValue is TJSONArray then
+  else if jValue is {$IFDEF FPC}fpjson.{$ENDIF}TJSONArray then
   begin
     aCount := TJSONArray(jValue).Count;
     for i := 0 to aCount - 1 do
@@ -574,6 +597,7 @@ end;
 
 function TAppConfigRegistry.GetProvider: TAppConfigRegistryProvider;
 begin
+  if not Assigned(fProvider) then raise EAppConfig.Create('No provider assigned!');
   Result := TAppConfigRegistryProvider(fProvider);
 end;
 

Quick.FileMonitor.pas

@@ -1,13 +1,13 @@
 { ***************************************************************************
 
-  Copyright (c) 2015-2018 Kike Pérez
+  Copyright (c) 2015-2019 Kike Pérez
 
   Unit        : Quick.FileMonitor
   Description : Watch for single file changes
   Author      : Kike Pérez
-  Version     : 1.1
+  Version     : 1.2
   Created     : 11/09/2017
-  Modified    : 07/04/2018
+  Modified    : 25/01/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -37,6 +37,9 @@ uses
   Classes,
   {$IFDEF MSWINDOWS}
   Windows,
+  SyncObjs,
+  {$ELSE}
+  SyncObjs,
   {$ENDIF}
   SysUtils,
   {$IFDEF FPC}
@@ -51,10 +54,10 @@ type
   TMonitorWatch = set of TMonitorNotify;
   TFileChangeNotify = procedure(MonitorNofify : TMonitorNotify) of object;
 
-  TQuickFileMonitor = class(TThread)
+  TFileMonitor = class(TThread)
   private
     fFileName : string;
-    fTickEvent : THandle;
+    fTickEvent : TSimpleEvent;
     fInterval : Integer;
     fNotifies : TMonitorWatch;
     fEnabled : Boolean;
@@ -75,9 +78,11 @@ type
     property Enabled : Boolean read fEnabled write SetStatus;
   end;
 
+  TQuickFileMonitor = TFileMonitor;
+
 implementation
 
-constructor TQuickFileMonitor.Create;
+constructor TFileMonitor.Create;
 begin
   inherited Create(True);
   Self.FreeOnTerminate := False;
@@ -86,19 +91,23 @@ begin
   fModifedDate := 0;
   fCurrentMonitorNotify := mnNone;
   fNotifies := [mnFileCreated,mnFileModified,mnFileDeleted];
-  fTickEvent := CreateEvent(nil, True, False, nil);
+  {$IFDEF FPC}
+  fTickEvent := TSimpleEvent.Create;
+  {$ELSE}
+  fTickEvent := TSimpleEvent.Create(nil,True,False,'');
+  {$ENDIF}
   Self.Resume;
 end;
 
-destructor TQuickFileMonitor.Destroy;
+destructor TFileMonitor.Destroy;
 begin
   if not Terminated then Terminate;
-  SetEvent(fTickEvent);
-  CloseHandle(fTickEvent);
+  fTickEvent.SetEvent;
+  fTickEvent.Free;
   inherited;
 end;
 
-procedure TQuickFileMonitor.Execute;
+procedure TFileMonitor.Execute;
 var
   LastModifiedDate : TDateTime;
 begin
@@ -106,7 +115,7 @@ begin
   while not Terminated do
   begin
     fCurrentMonitorNotify := mnNone;
-    if WaitForSingleObject(fTickEvent,fInterval) = WAIT_TIMEOUT then
+    if fTickEvent.WaitFor(fInterval) = TWaitResult.wrTimeout then
     begin
       if fEnabled then
       begin
@@ -154,7 +163,7 @@ begin
   end;
 end;
 
-procedure TQuickFileMonitor.SetStatus(Status : Boolean);
+procedure TFileMonitor.SetStatus(Status : Boolean);
 begin
   if fEnabled <> Status then
   begin
@@ -168,7 +177,7 @@ begin
   end;
 end;
 
-procedure TQuickFileMonitor.NotifyEvent;
+procedure TFileMonitor.NotifyEvent;
 begin
   if Assigned(fOnChangeNotify) then fOnChangeNotify(fCurrentMonitorNotify);
 end;

Quick.Json.Serializer.pas

@@ -518,7 +518,7 @@ begin
     Result := aObject;
     rValue := nil;
     {$IFNDEF FPC}
-    member := TJSONPair(aJson.GetValue(aName));
+     member := TJSONPair(aJson.GetValue(aName));
     {$ELSE}
     member := TJsonObject(aJson.Find(aName));
     {$ENDIF}

README.md

@@ -5,6 +5,7 @@
 --------
 
 Small delphi/Firemonkey(Windows,Android,OSX & IOS) and fpc(Windows & Linux) library containing interesting and quick to implement functions, created to simplify application development and crossplatform support and improve productivity.
+* NEW: QuickConfigJson reload if config file changed
 * NEW: First version with OSX/IOS partial support
 * NEW: Refactorized Quick.Config (more easy)
 * NEW: TScheduledTasks: New schedule methods.
@@ -168,7 +169,7 @@ Log.Add('Error x',etError);
 Log.Add('Error is %s',[ErrorStr],etError);
 ```
 
-**Quick.Config:** Load/Save a config as json file or Windows Registry keys. Create a descend class from TAppConfigJson or TAppConfigRegistry and add private variables will be loaded/saved.
+**Quick.Config:** Load/Save a config as json file or Windows Registry keys. Create a descend class from TAppConfigJson or TAppConfigRegistry and add private variables will be loaded/saved. TAppConfiJson allow detect if config file was changed and do a config reload.
 
 ```delphi
 //create a class heritage
@@ -185,9 +186,9 @@ end;
 
 //create your config to json file
 //Add Quick.Config.Json to your uses
-MyConfig := TMyConfig.Create;
+MyConfig := TMyConfig.Create('Config.json');
 MyConfig.Provider.CreateIfNotExists := True;
-MyConfig.Provider.Filename := 'Config.json';
+MyConfig.Provider.ReloadIfFileModified := True;
 MyConfig.Name := 'John';
 MyConfig.Surname := 'Smith';
 //load

samples/delphi/QuickConfig/ConfigToFile/Main.pas

@@ -64,8 +64,8 @@ type
     property SessionName : string read fSessionName write fSessionName;
     property WorkList : TObjectList<TWorker> read fWorkList write fWorkList;
   public
-    constructor Create;
     destructor Destroy; override;
+    procedure Init; override;
     procedure DefaultValues; override;
   end;
 
@@ -79,12 +79,13 @@ type
     procedure SetConfig(cConfig: TMyConfig);
     function TestConfig(cConfig1, cConfig2 : TMyConfig) : Boolean;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure OnFileModified;
   end;
 
 var
   MainForm: TMainForm;
   ConfigTest : TMyConfig;
-  ConfigReg : TMyConfig;
+  ConfigJson : TMyConfig;
 
 implementation
 
@@ -93,16 +94,16 @@ implementation
 procedure TMainForm.btnLoadFileClick(Sender: TObject);
 begin
   meInfo.Lines.Add('Load ConfigReg');
-  ConfigReg.Load;
-  meInfo.Lines.Add(ConfigReg.ToJSON);
-  if TestConfig(configtest,ConfigReg) then meInfo.Lines.Add('Test passed successfully!');
+  ConfigJson.Load;
+  meInfo.Lines.Add(ConfigJson.ToJSON);
+  if TestConfig(configtest,ConfigJson) then meInfo.Lines.Add('Test passed successfully!');
  end;
 
 procedure TMainForm.btnSaveFileClick(Sender: TObject);
 begin
-  SetConfig(ConfigReg);
-  ConfigReg.Save;
-  meInfo.Lines.Add('Saved Config in Registry at ' + DateTimeToStr(ConfigReg.LastSaved));
+  SetConfig(ConfigJson);
+  ConfigJson.Save;
+  meInfo.Lines.Add('Saved Config in Registry at ' + DateTimeToStr(ConfigJson.LastSaved));
 end;
 
 procedure TMainForm.SetConfig(cConfig : TMyConfig);
@@ -171,24 +172,30 @@ end;
 
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  if Assigned(ConfigReg) then ConfigReg.Free;
+  if Assigned(ConfigJson) then ConfigJson.Free;
   if Assigned(ConfigTest) then ConfigTest.Free;
 end;
 
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  ConfigReg := TMyConfig.Create;
-  ConfigReg.Provider.Filename := '.\config.json';
+  ConfigJson := TMyConfig.Create('.\config.json');
+  ConfigJson.Provider.OnFileModified := OnFileModified;
+  ConfigJson.Provider.ReloadIfFileChanged := True;
   //create config test to compare later
-  ConfigTest := TMyConfig.Create;
+  ConfigTest := TMyConfig.Create('');
   SetConfig(ConfigTest);
 end;
 
+procedure TMainForm.OnFileModified;
+begin
+  meInfo.Lines.Add('Config file modified. Config will be reload');
+end;
+
 { TMyConfig }
 
-constructor TMyConfig.Create;
+procedure TMyConfig.Init;
 begin
-  inherited Create;
+  inherited;
   WorkList := TObjectList<TWorker>.Create(True);
   DefaultValues;
 end;

samples/delphi/QuickConfig/ConfigToFile/Win64/Debug/config.json

@@ -29,246 +29,6 @@
         "PosY": 0
     },
     "History": [
-        {
-            "Id": 0,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 1,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 2,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 3,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 4,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 5,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 6,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 7,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 8,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 9,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 10,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 11,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 12,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 13,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 14,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 15,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 0,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 1,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 2,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 3,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 4,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 5,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 6,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 7,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 8,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 9,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 10,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 11,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 12,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 13,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 14,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 15,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 0,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 1,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 2,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 3,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 4,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 5,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 6,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 7,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 8,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 9,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 10,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 11,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 12,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 13,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 14,
-            "Priority": "msLow",
-            "Redundant": true
-        },
-        {
-            "Id": 15,
-            "Priority": "msLow",
-            "Redundant": true
-        },
         {
             "Id": 0,
             "Priority": "msLow",
@@ -351,567 +111,15 @@
         }
     ],
     "Complex": {
-        "Id": 25297232,
+        "Id": 24336464,
         "Priority": "msHigh",
         "Redundant": false
     },
-    "ModifyDate": "2019-01-21T23:15:39.665Z",
+    "ModifyDate": "2019-01-26T01:38:10.340Z",
     "Title": "a fresh title",
     "SessionName": "First Session",
     "WorkList": {
         "List": [
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
-            {
-                "Name": "Process 0",
-                "Active": false
-            },
-            {
-                "Name": "Process 1",
-                "Active": false
-            },
-            {
-                "Name": "Process 2",
-                "Active": false
-            },
-            {
-                "Name": "Process 3",
-                "Active": false
-            },
-            {
-                "Name": "Process 4",
-                "Active": false
-            },
-            {
-                "Name": "Process 5",
-                "Active": false
-            },
-            {
-                "Name": "Process 6",
-                "Active": false
-            },
-            {
-                "Name": "Process 7",
-                "Active": false
-            },
-            {
-                "Name": "Process 8",
-                "Active": false
-            },
-            {
-                "Name": "Process 9",
-                "Active": false
-            },
-            {
-                "Name": "Process 10",
-                "Active": false
-            },
-            {
-                "Name": "Process 11",
-                "Active": false
-            },
-            {
-                "Name": "Process 12",
-                "Active": false
-            },
-            {
-                "Name": "Process 13",
-                "Active": false
-            },
-            {
-                "Name": "Process 14",
-                "Active": false
-            },
-            {
-                "Name": "Process 15",
-                "Active": false
-            },
-            {
-                "Name": "Process 16",
-                "Active": false
-            },
-            {
-                "Name": "Process 17",
-                "Active": false
-            },
-            {
-                "Name": "Process 18",
-                "Active": false
-            },
-            {
-                "Name": "Process 19",
-                "Active": false
-            },
-            {
-                "Name": "Process 20",
-                "Active": false
-            },
-            {
-                "Name": "Process 21",
-                "Active": false
-            },
-            {
-                "Name": "Process 22",
-                "Active": false
-            },
             {
                 "Name": "Process 0",
                 "Active": false

samples/delphi/QuickConfig/ConfigToRegistry/Main.pas

@@ -64,8 +64,8 @@ type
     property SessionName : string read fSessionName write fSessionName;
     property WorkList : TObjectList<TWorker> read fWorkList write fWorkList;
   public
-    constructor Create;
     destructor Destroy; override;
+    procedure Init; override;
     procedure DefaultValues; override;
   end;
 
@@ -187,9 +187,9 @@ end;
 
 { TMyConfig }
 
-constructor TMyConfig.Create;
+procedure TMyConfig.Init;
 begin
-  inherited Create;
+  inherited;
   WorkList := TObjectList<TWorker>.Create(True);
   DefaultValues;
 end;

samples/firemonkey/QuickConfig/ConfigToFile/Android/Debug/ConfigToFile.lnk

@@ -0,0 +1,240 @@
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\SysInit.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Types.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Base.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Dlfcn.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.StdDef.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysTypes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Fcntl.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysStat.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Locale.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.String_.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Signal.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Time.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysTime.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.SysConst.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Dirent.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Errno.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Fnmatch.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Langinfo.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Sched.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Pthread.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Stdio.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Stdlib.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysSysctl.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Unistd.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Utime.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Wordexp.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Pwd.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Semaphore.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Jni.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.AssetManager.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Looper.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.KeyCodes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Input.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Rect.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.NativeWindow.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.NativeActivity.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.IOUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Internal.ICU.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.RTLConsts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Wchar.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.Wctype.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Character.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Internal.ExcUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.SysUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.VarUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Variants.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Generics.Collections.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysMman.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Hash.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Math.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Rtti.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.TypInfo.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Generics.Defaults.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.StrOpts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Posix.SysSelect.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Classes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Masks.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.StrUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.TimeSpan.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.DateUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.IOUtils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.StartUpCopy.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.UITypes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Consts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNIMarshal.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNIBridge.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.JavaTypes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Java.Security.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Java.Net.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Util.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Os.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Net.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.GraphicsContentViewText.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Messaging.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Analytics.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Math.Vectors.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Actions.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.ImageList.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Consts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Android.Devices.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Devices.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.DialogService.Async.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Dialogs.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Surfaces.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.UIConsts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.TextLayout.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Utils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Graphics.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.RegularExpressionsAPI.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.RegularExpressionsConsts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.RegularExpressionsCore.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.RegularExpressions.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Text.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Configuration.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Log.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.AppGlue.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Widget.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.App.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Location.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.AdMob.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Hardware.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Accounts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Support.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.PlayServices.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Print.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Webkit.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Embarcadero.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.DialogService.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Gestures.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Gestures.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.VirtualKeyboard.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.BehaviorManager.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Styles.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Materials.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Types3D.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Filter.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Filter.Custom.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Effects.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.Diagnostics.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.SyncObjs.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.MultiResBitmap.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Ani.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.AcceleratorKey.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Bitmap.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Helpers.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.FontGlyphs.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.FontGlyphs.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Objects.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ImgList.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Menus.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Controls.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Messages.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Controls.Model.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Factory.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Style.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Controls.Presentation.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.KeyMapping.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Helpers.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.MultiTouch.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.MultiTouch.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ZOrder.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ZOrder.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Text.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Maps.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Maps.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Materials.Canvas.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Canvas.GPU.Helpers.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.TextLayout.GPU.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.StrokeBuilder.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Canvas.GPU.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Timer.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.UI.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.VirtualKeyboard.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Dialogs.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.JNI.Telephony.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Device.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Logger.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.SaveState.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Screen.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Pickers.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Pickers.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Metrics.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.KhrPlatform.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.EglPlatform.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Egl.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Gles2.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Gles2ext.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Context.GLES.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.Eglext.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Androidapi.NativeWindowJni.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Controls3D.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.MaterialSources.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Import.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Objects3D.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Forms3D.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Style.Common.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Presentation.Android.Style.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Context.GLES.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Graphics.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Controls.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.Common.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Clipboard.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Clipboard.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Platform.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ActnList.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Types.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.StdActns.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Styles.Objects.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Styles.Switch.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Switch.Style.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Switch.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.StdCtrls.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.InertialMovement.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Layouts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Header.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Forms.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSONConsts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSON.o"
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.Commons.o
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.JSON.Utils.o
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.Json.Serializer.o
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\REST.Consts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\REST.Json.Types.o"
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.FileMonitor.o
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBConsts.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.FmtBcd.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.SqlTimSt.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBXCommonResStrs.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBXPlatform.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.IniFiles.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSON.Types.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.NetEncoding.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSON.Utils.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSON.Readers.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\System.JSON.Writers.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBCommonTypes.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBXClassRegistry.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DSUtil.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBXCommon.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\Data.DBXJSON.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\REST.Json.Interceptors.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\REST.JsonReflect.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\REST.Json.o"
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.Config.Base.o
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Quick.Config.Json.o
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ScrollBox.Style.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ScrollBox.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.ScrollBox.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Memo.Types.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.MagnifierGlass.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.SpellChecker.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.SpellChecker.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Memo.Style.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Memo.Android.o"
+"c:\\program files (x86)\\embarcadero\\studio\\20.0\\lib\\Android\\debug\\FMX.Memo.o"
+D:\\Delphi\\LibsRAD10\\QuickLibs\\QuickLib\\samples\\firemonkey\\QuickConfig\\ConfigToFile\\Android\\Debug\\Main.o
+.\\Android\\Debug\\ConfigToFile.o

samples/firemonkey/QuickConfig/ConfigToFile/Android/Debug/ConfigToFile.vsr

@@ -0,0 +1,28 @@
+EXPORTED {
+	global:
+		_NativeMain;
+		__rsrc_*;
+		__rstr_*;
+		dbkFCallWrapperAddr;
+		dbk_RTL_initialized;
+		__dbk_fcall_wrapper;
+		_DbgExcNotify;
+		_Unwind_VRS_Get;
+		_Unwind_VRS_Set;
+		_Unwind_Complete;
+		_Unwind_Resume_or_Rethrow;
+		_Unwind_GetDataRelBase;
+		_Unwind_GetTextRelBase;
+		_Unwind_GetLanguageSpecificData;
+		_Unwind_GetRegionStart;
+		_BorUnwind_RaiseException;
+		_BorUnwind_RaiseException2;
+		_BorUnwind_Resume;
+		_UnwindCppFrame;
+		UnwindCppPersonalityCommon;
+		_Unwind_DeleteException;
+		TMethodImplementationIntercept;
+		ExecJNI;
+		ANativeActivity_onCreate;
+	local: *;
+};

samples/firemonkey/QuickConfig/ConfigToFile/ConfigToFile.deployproj

@@ -4,10 +4,10 @@
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
     <PropertyGroup>
-        <DeviceId Condition="'$(Platform)'=='Android'">emulator-5554</DeviceId>
+        <DeviceId Condition="'$(Platform)'=='Android'"/>
         <DeviceId Condition="'$(Platform)'=='iOSDevice32'"/>
         <DeviceId Condition="'$(Platform)'=='iOSDevice64'"/>
-        <DeviceId Condition="'$(Platform)'=='iOSSimulator'">18177134-9BFD-46EA-8567-C7B81A17DACE</DeviceId>
+        <DeviceId Condition="'$(Platform)'=='iOSSimulator'">iPhone5</DeviceId>
     </PropertyGroup>
     <ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
     <ItemGroup Condition="'$(Platform)'=='Win64'"/>
@@ -80,6 +80,15 @@
             <RemoteCommand/>
             <Overwrite>True</Overwrite>
         </DeployFile>
+        <DeployFile Include="OSX32\Debug\ConfigToFile.rsm" Condition="'$(Config)'=='Debug'">
+            <RemoteDir>ConfigToFile.app\Contents\MacOS\</RemoteDir>
+            <RemoteName>ConfigToFile.rsm</RemoteName>
+            <DeployClass>DebugSymbols</DeployClass>
+            <Operation>1</Operation>
+            <LocalCommand/>
+            <RemoteCommand/>
+            <Overwrite>True</Overwrite>
+        </DeployFile>
     </ItemGroup>
     <ItemGroup Condition="'$(Platform)'=='Android'">
         <DeployFile Include="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png" Condition="'$(Config)'=='Debug'">

samples/firemonkey/QuickConfig/ConfigToFile/ConfigToFile.dproj

@@ -6,7 +6,7 @@
         <MainSource>ConfigToFile.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Android</Platform>
+        <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>1119</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>
@@ -703,6 +703,13 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="OSX32\Debug\ConfigToFile.rsm" Configuration="Debug" Class="DebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS\</RemoteDir>
+                        <RemoteName>ConfigToFile.rsm</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png" Configuration="Debug" Class="iPad_Launch1024">
                     <Platform Name="iOSSimulator">
                         <RemoteName>Default-Landscape.png</RemoteName>

samples/firemonkey/QuickConfig/ConfigToFile/Main.pas

@@ -57,8 +57,8 @@ type
     property SessionName : string read fSessionName write fSessionName;
     property WorkList : TObjectList<TWorker> read fWorkList write fWorkList;
   public
-    constructor Create;
     destructor Destroy; override;
+    procedure Init; override;
     procedure DefaultValues; override;
   end;
 
@@ -73,6 +73,8 @@ type
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure btnLoadJsonClick(Sender: TObject);
     procedure btnSaveJsonClick(Sender: TObject);
+    procedure OnConfigFileModified;
+    procedure OnConfigReloaded;
   end;
 
 var
@@ -172,24 +174,35 @@ end;
 
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  ConfigJson := TMyConfig.Create;
-  {$IFDEF NEXTGEN}
-  ConfigJson.Provider.Filename := TPath.GetDocumentsPath + '/config.json';
+  {$IF Defined(NEXTGEN) OR Defined(OSX)}
+  ConfigJson := TMyConfig.Create(TPath.GetDocumentsPath + '/config.json');
   {$ELSE}
-  ConfigJson.Provider.Filename := '.\config.json';
+  ConfigJson := TMyConfig.Create('.\config.json');
   {$ENDIF}
+  ConfigJson.Provider.OnFileModified := OnConfigFileModified;
+  ConfigJson.Provider.OnConfigReloaded := OnConfigReloaded;
+  ConfigJson.Provider.ReloadIfFileChanged := True;
   //create config test to compare later
-  ConfigTest := TMyConfig.Create;
+  ConfigTest := TMyConfig.Create('');
   SetConfig(ConfigTest);
 end;
 
+procedure TMainForm.OnConfigFileModified;
+begin
+  meInfo.Lines.Add('Config modified');
+end;
+
+procedure TMainForm.OnConfigReloaded;
+begin
+  meInfo.Lines.Add('Config reloaded');
+end;
+
 { TMyConfig }
 
-constructor TMyConfig.Create;
+procedure TMyConfig.Init;
 begin
-  inherited Create;
+  inherited;
   WorkList := TObjectList<TWorker>.Create(True);
-  DefaultValues;
 end;
 
 procedure TMyConfig.DefaultValues;

samples/firemonkey/QuickConfig/ConfigToFile/OSX32/Debug/ConfigToFile.entitlements

@@ -1,7 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
+
 <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+
 <plist version="1.0">
+
 <dict>
+
 	
+
 </dict>
+
 </plist>
+

samples/firemonkey/QuickConfig/ConfigToFile/OSX32/Debug/ConfigToFile.info.plist

@@ -1,7 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
+
 <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+
 <plist version="1.0">
+
 <dict>
+
 	<key>CFBundleName</key>
 	<string>ConfigToFile</string>
 	<key>CFBundleDisplayName</key>
@@ -33,6 +37,7 @@
 	<key>NSContactsUsageDescription</key>
 	<string>The reason for accessing the contacts</string>
 
+
 	<key>CFBundleIconFile</key>
 	<string>ConfigToFile.icns</string>
 	<key>CFBundleSupportedPlatforms</key>
@@ -40,5 +45,8 @@
 		<string>MacOSX</string>
 	</array>
 
+
 </dict>
+
 </plist>
+

samples/firemonkey/QuickConfig/ConfigToFile/Win64/Debug/config.json

@@ -29,6 +29,86 @@
         "PosY": 0
     },
     "History": [
+        {
+            "Id": 0,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 1,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 2,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 3,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 4,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 5,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 6,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 7,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 8,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 9,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 10,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 11,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 12,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 13,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 14,
+            "Priority": "msLow",
+            "Redundant": true
+        },
+        {
+            "Id": 15,
+            "Priority": "msLow",
+            "Redundant": true
+        },
         {
             "Id": 0,
             "Priority": "msLow",
@@ -111,15 +191,291 @@
         }
     ],
     "Complex": {
-        "Id": 269729584,
+        "Id": 269991728,
         "Priority": "msHigh",
         "Redundant": false
     },
-    "ModifyDate": "2019-01-17T23:08:53.216Z",
+    "ModifyDate": "2019-01-25T23:28:02.895Z",
     "Title": "a fresh title",
     "SessionName": "First Session",
     "WorkList": {
         "List": [
+            {
+                "Name": "Process 0",
+                "Active": false
+            },
+            {
+                "Name": "Process 1",
+                "Active": false
+            },
+            {
+                "Name": "Process 2",
+                "Active": false
+            },
+            {
+                "Name": "Process 3",
+                "Active": false
+            },
+            {
+                "Name": "Process 4",
+                "Active": false
+            },
+            {
+                "Name": "Process 5",
+                "Active": false
+            },
+            {
+                "Name": "Process 6",
+                "Active": false
+            },
+            {
+                "Name": "Process 7",
+                "Active": false
+            },
+            {
+                "Name": "Process 8",
+                "Active": false
+            },
+            {
+                "Name": "Process 9",
+                "Active": false
+            },
+            {
+                "Name": "Process 10",
+                "Active": false
+            },
+            {
+                "Name": "Process 11",
+                "Active": false
+            },
+            {
+                "Name": "Process 12",
+                "Active": false
+            },
+            {
+                "Name": "Process 13",
+                "Active": false
+            },
+            {
+                "Name": "Process 14",
+                "Active": false
+            },
+            {
+                "Name": "Process 15",
+                "Active": false
+            },
+            {
+                "Name": "Process 16",
+                "Active": false
+            },
+            {
+                "Name": "Process 17",
+                "Active": false
+            },
+            {
+                "Name": "Process 18",
+                "Active": false
+            },
+            {
+                "Name": "Process 19",
+                "Active": false
+            },
+            {
+                "Name": "Process 20",
+                "Active": false
+            },
+            {
+                "Name": "Process 21",
+                "Active": false
+            },
+            {
+                "Name": "Process 22",
+                "Active": false
+            },
+            {
+                "Name": "Process 0",
+                "Active": false
+            },
+            {
+                "Name": "Process 1",
+                "Active": false
+            },
+            {
+                "Name": "Process 2",
+                "Active": false
+            },
+            {
+                "Name": "Process 3",
+                "Active": false
+            },
+            {
+                "Name": "Process 4",
+                "Active": false
+            },
+            {
+                "Name": "Process 5",
+                "Active": false
+            },
+            {
+                "Name": "Process 6",
+                "Active": false
+            },
+            {
+                "Name": "Process 7",
+                "Active": false
+            },
+            {
+                "Name": "Process 8",
+                "Active": false
+            },
+            {
+                "Name": "Process 9",
+                "Active": false
+            },
+            {
+                "Name": "Process 10",
+                "Active": false
+            },
+            {
+                "Name": "Process 11",
+                "Active": false
+            },
+            {
+                "Name": "Process 12",
+                "Active": false
+            },
+            {
+                "Name": "Process 13",
+                "Active": false
+            },
+            {
+                "Name": "Process 14",
+                "Active": false
+            },
+            {
+                "Name": "Process 15",
+                "Active": false
+            },
+            {
+                "Name": "Process 16",
+                "Active": false
+            },
+            {
+                "Name": "Process 17",
+                "Active": false
+            },
+            {
+                "Name": "Process 18",
+                "Active": false
+            },
+            {
+                "Name": "Process 19",
+                "Active": false
+            },
+            {
+                "Name": "Process 20",
+                "Active": false
+            },
+            {
+                "Name": "Process 21",
+                "Active": false
+            },
+            {
+                "Name": "Process 22",
+                "Active": false
+            },
+            {
+                "Name": "Process 0",
+                "Active": false
+            },
+            {
+                "Name": "Process 1",
+                "Active": false
+            },
+            {
+                "Name": "Process 2",
+                "Active": false
+            },
+            {
+                "Name": "Process 3",
+                "Active": false
+            },
+            {
+                "Name": "Process 4",
+                "Active": false
+            },
+            {
+                "Name": "Process 5",
+                "Active": false
+            },
+            {
+                "Name": "Process 6",
+                "Active": false
+            },
+            {
+                "Name": "Process 7",
+                "Active": false
+            },
+            {
+                "Name": "Process 8",
+                "Active": false
+            },
+            {
+                "Name": "Process 9",
+                "Active": false
+            },
+            {
+                "Name": "Process 10",
+                "Active": false
+            },
+            {
+                "Name": "Process 11",
+                "Active": false
+            },
+            {
+                "Name": "Process 12",
+                "Active": false
+            },
+            {
+                "Name": "Process 13",
+                "Active": false
+            },
+            {
+                "Name": "Process 14",
+                "Active": false
+            },
+            {
+                "Name": "Process 15",
+                "Active": false
+            },
+            {
+                "Name": "Process 16",
+                "Active": false
+            },
+            {
+                "Name": "Process 17",
+                "Active": false
+            },
+            {
+                "Name": "Process 18",
+                "Active": false
+            },
+            {
+                "Name": "Process 19",
+                "Active": false
+            },
+            {
+                "Name": "Process 20",
+                "Active": false
+            },
+            {
+                "Name": "Process 21",
+                "Active": false
+            },
+            {
+                "Name": "Process 22",
+                "Active": false
+            },
             {
                 "Name": "Process 0",
                 "Active": false

samples/fpc/QuickConfig/ConfigToFile/Config.json

@@ -10,7 +10,7 @@
          6,
          7
     ],
-     "LastFilename" :  "C:\\library.txt",
+     "LastFilename" :  "C:\\library2.txt",
      "WindowPos" :  {
          "PosX" :  100,
          "PosY" :  200 
@@ -27,5 +27,5 @@
          "Priority" :  "msMed",
          "Redundant" :  true 
     },
-     "ModifyDate" :  "2019-01-24T23:59:38.138Z" 
+     "ModifyDate" :  "2019-01-25T23:52:30.424Z" 
 }

samples/fpc/QuickConfig/ConfigToFile/umain.pas

@@ -68,7 +68,7 @@ type
     fModifyDate : TDateTime;
     //fWorkList : TObjectList<TWorker>;
   public
-    constructor Create;
+    procedure Init;
     destructor Destroy; override;
     procedure DefaultValues; override;
     property Hidden : Boolean read fHidden write fHidden;
@@ -94,6 +94,7 @@ type
     procedure btnSaveJsonClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure OnConfigFileModified;
   private
 
   public
@@ -171,10 +172,17 @@ end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
-  ConfigTest := TMyConfig.Create;
+  ConfigTest := TMyConfig.Create('');
   SetConfig(ConfigTest);
   ConfigJson := TMyConfig.Create('.\Config.json');
-  //ConfigJson.Provider.CreateIfNotExists := True;
+  ConfigJson.Provider.CreateIfNotExists := True;
+  ConfigJson.Provider.ReloadIfFileChanged := True;
+  ConfigJson.Provider.OnFileModified := OnConfigFileModified;
+end;
+
+procedure TForm1.OnConfigFileModified;
+begin
+  meInfo.Lines.Add('Config file modified');
 end;
 
 procedure TForm1.SetConfig(cConfig: TMyConfig);
@@ -202,7 +210,7 @@ end;
 
 { TMyConfig }
 
-constructor TMyConfig.Create;
+procedure TMyConfig.Init;
 begin
   inherited;
   //WorkList := TObjectList<TWorker>.Create(True);

samples/fpc/QuickConfig/ConfigToRegistry/umain.pas

@@ -173,7 +173,7 @@ begin
   ConfigTest := TMyConfig.Create;
   SetConfig(ConfigTest);
   ConfigReg := TMyConfig.Create(HKEY_CURRENT_USER,'_AppConfig2');
-  //ConfigReg.Provider.CreateIfNotExists := True;
+  ConfigReg.Provider.CreateIfNotExists := True;
 end;
 
 procedure TForm1.SetConfig(cConfig: TMyConfig);