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;
文件大小：2.08KB
评论区