delphi日志类TLogger 修复多线程显示的bug

// 日志类（TLoger） ver.1.0 // 日志级别约定： // 0 - Information // 1 - Notice // 2 - Warning // 3 - Error //============================================================ // gale 2017-11-05 修改 // 解决线程中显示日志时，可能和主线程冲突的问题 if FLogShower <> nil then begin if GetCurrentThreadId = MainThreadID then begin ShowLog(Log, LogLevel); //显示日志到容器 end else begin FLogForThread := Log; FLogLevelForThread := LogLevel; TThread.Synchronize(nil, ShowLogForThread); end; end;