Data Fix
This commit is contained in:
@@ -151,7 +151,7 @@ class function TAGLog.GenerateLogString(const s:string;o:TObject=nil):string;
|
|||||||
var
|
var
|
||||||
D:TDateTime;
|
D:TDateTime;
|
||||||
begin
|
begin
|
||||||
D:=Time;
|
D:=Now;
|
||||||
if o<>nil then
|
if o<>nil then
|
||||||
{$IFDEF FPC}
|
{$IFDEF FPC}
|
||||||
Result:=o.ClassName+'['+IntToStr(o.GetHashCode)+']:'
|
Result:=o.ClassName+'['+IntToStr(o.GetHashCode)+']:'
|
||||||
|
|||||||
Reference in New Issue
Block a user