DELPHI分级别调试日志类支持多种类型输出支持多线程模式.

* 单元名称:uDebugLog.pas * 单元作者:CodeGame * 用 途:分级别调试日志类,支持多种类型输出,支持多线程模式. * 提供类表: TCGL_DebugLogs * 提供函数: procedure DebugLog_Init(LogsFileName: string = ''; LogsPath: string = ''; LogMethod: TLogMethod = lmAllLogs; LogLevel: TLogLevel = llMedium); procedure DebugLog_Write(const LogStr: string; Level: TLogLevel); procedure DebugLog_SetStrings(LogsStrings:TStrings); procedure DebugLog_Start; procedure DebugLog_Stop; *调用方式: 如果需要设置自定义日志文件名及路径则需要先调用Debug_InitiLog() ,然后直接使用Debug_WriteLog(),可以使用Debug_StartLog()和Debug_StopLog() 控制日志开关. * *修改记录:2011-05-15 18:15:52 * 2011-06-25 00:05:51 修改直调函数增加控制日志开关函数 2011-07-04 02:39:52 修改类函数在lmMessageLogs 时不产生文件 2012-02-26 22:40:14 添加日志头信息和CGDEBUGLOG控制符. 2012-11-08 21:46:39 添加lmStrings输出类型,重命名提供的函数名 2012-12-18 20:43:53 添加 FLogsTagName:string;//唯一名字段 2014-11-11 16:24:46 添加 DEBUG信息显示线程Id