This commit is contained in:
2018-07-21 22:33:39 +03:00
parent 9675cb8091
commit 83685df7c8

View File

@@ -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)+']:'