如何设计日志类(100分)

最近想做一个日志类记录一些重要操作及错误信息但以前没有做过
请大家给些想法如有代码更好

可以尝试建立INI文件。

我已经做好

怎么做的？

怎么做的？

晕到……做好了不告诉大家，没做出来的时候在这里跪求，实在是

接分了

不好意思,前段时间出差了.是这样的,主要是这段回调函数
/// <summary>
/// 定位产生日志的单元及行数
/// </summary>
/// <author> </author>
/// <date> 2006-8-5 </date>
unit AssertLogs;

interface
var
runErrMsg: string;
implementation
uses
Windows,
SysUtils;

var
//runErrMsg: string;
oldAssertErrorProc: TAssertErrorProc;

procedure LogAssert(const message, Filename: string; LineNumber: Integer;
ErrorAddr: Pointer);
begin
runErrMsg := '';
runErrMsg := Format('Addr: %p, in file(%d): %s', [ ErrorAddr, LineNumber, Filename]);
runErrMsg := Format('Error: %s, Addr: %p, in file(%d): %s',
[message, ErrorAddr, LineNumber, Filename]);
if IsConsole then
Writeln(runErrMsg)
else
MessageBox(0, PChar(runErrMsg), 'Error Log by AssertLogs', 0);
end;

initialization
oldAssertErrorProc := AssertErrorProc;
AssertErrorProc := @LogAssert;

finalization
AssertErrorProc := oldAssertErrorProc;
end.

但这个只能捕获Assert抛出来的异常啊!