【文件属性】：
文件名称：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