1
0
mirror of synced 2024-12-04 16:43:10 +01:00

Fixed: TX2GlobalLog tried to free an interface

This commit is contained in:
Mark van Renswoude 2014-05-28 11:49:48 +00:00
parent d19bcad4b4
commit 7b86cad3b4

View File

@ -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 }