Fixed: TX2GlobalLog tried to free an interface
This commit is contained in:
parent
d19bcad4b4
commit
7b86cad3b4
@ -4,13 +4,14 @@ interface
|
|||||||
uses
|
uses
|
||||||
System.SysUtils,
|
System.SysUtils,
|
||||||
|
|
||||||
|
X2Log,
|
||||||
X2Log.Intf;
|
X2Log.Intf;
|
||||||
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TX2GlobalLog = class(TObject)
|
TX2GlobalLog = class(TObject)
|
||||||
private class var
|
private class var
|
||||||
FInstance: IX2Log;
|
FInstance: TX2Log;
|
||||||
protected
|
protected
|
||||||
class procedure CleanupInstance;
|
class procedure CleanupInstance;
|
||||||
public
|
public
|
||||||
@ -34,8 +35,6 @@ type
|
|||||||
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
uses
|
|
||||||
X2Log;
|
|
||||||
|
|
||||||
|
|
||||||
{ TX2GlobalLog }
|
{ TX2GlobalLog }
|
||||||
|
Loading…
Reference in New Issue
Block a user