浏览代码

Quick.Config.Json cleanup

Unknown 6 年之前
父节点
当前提交
1d4ecad868
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      Quick.Config.Json.pas

+ 6 - 0
Quick.Config.Json.pas

@@ -57,6 +57,12 @@ type
   TFileModifiedEvent = procedure of object;
   TFileModifiedEvent = procedure of object;
   TLoadConfigEvent = procedure of object;
   TLoadConfigEvent = procedure of object;
 
 
+  {$IFNDEF FPC}
+  TNotSerializableProperty = Quick.Json.Serializer.TNotSerializableProperty;
+  TCommentProperty = Quick.Json.Serializer.TCommentProperty;
+  TCustomNameProperty = Quick.Json.Serializer.TCustomNameProperty;
+  {$ENDIF}
+
   TAppConfigJsonProvider = class(TAppConfigProvider)
   TAppConfigJsonProvider = class(TAppConfigProvider)
   private
   private
     fFilename : string;
     fFilename : string;