mast TSynLog constructor as virtual

synopse · Dec 1, 2018 · 22ff2cd · 22ff2cd
1 parent a0696dc
commit 22ff2cd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/SynLog.pas b/SynLog.pas
@@ -869,7 +869,7 @@   TSynLog = class(TObject, ISynLog)
   public
     /// intialize for a TSynLog class instance
     // - WARNING: not to be called directly! Use Enter or Add class function instead
-    constructor Create(aFamily: TSynLogFamily=nil);
+    constructor Create(aFamily: TSynLogFamily=nil); virtual;
     /// release all memory and internal handles
     destructor Destroy; override;
     /// flush all log content to file