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

【文件属性】：

文件名称：delphi日志类TLogger 修复多线程显示的bug

文件大小：2KB

文件格式：ZIP

更新时间：2020-12-17 10:53:49

delphi

// 日志类（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;

【文件预览】：
Logger.pas