Delphi - Logs记录,函数实现MsgDsp

2021-02-04 03:14

阅读:524

标签:记录   bsp   形式   ring   代码   user   begin   窗体   use   

Logs记录-函数实现MsgDsp

大多数时候,我们不太希望消息以交互的形式出现,这个时候我们可以在窗体上放置一个Memo,然后单独开一个线程进行监视,从而实现把消息实时的显示出来,便于开发者分析。

关键代码如下:

1 procedure TFrmMain.MsgDsp(v_Str: string);
2 begin
3   mm_log.Lines.Add([ + SYS_USERNAME + ] - [ + v_Str + ] - [ + FormatDateTime(YYYY-MM-DD hh:mm:ss zzz, Now()) + ]);
4 end;

 

Delphi - Logs记录,函数实现MsgDsp

标签:记录   bsp   形式   ring   代码   user   begin   窗体   use   

原文地址:https://www.cnblogs.com/jeremywucnblog/p/11484308.html


评论


亲,登录后才可以留言!