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
D:TDateTime;
begin
D:=Time;
D:=Now;
if o<>nil then
{$IFDEF FPC}
Result:=o.ClassName+'['+IntToStr(o.GetHashCode)+']:'