达到这个效果
{函数}
function MemoMsgAddMsg(Msg:string;Level:byte=0):integer;
begin
if Msg = '' then begin
ErrorCode:=1;//一个错误代码对应一个问题这样一下就知道是在哪出错了
exit;
end;
FrmMain.StatusBar.Panels[0].Text:=Msg;
if Level >= ProcessConfig.MemoMsgLevel then begin
with FrmMain.MemoMsg.Lines do begin
if Count > ProcessConfig.MemoMsgMaxCount then begin
ErrorCode:=2; //搞了这个功能后 按一个快捷键自动在这里输入2(最大的错误代码+1)
end else
Add('[' + DateTimeToStr(Now) + '] '+Msg);
end;
end;
result:=ErrorCode;
end;Author:
王清 Time: 2008-11-6 19:08
