Delphi

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;

作者：Jeremy.Wu
出处：https://www.cnblogs.com/jeremywucnblog/
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。