关于Quick.logger的一点点补充

关于Quick.logger的一点点补充

用 Quick.logger 一直有个需求需要用到对多种Provider更新时，自动更新TMemo 之类TStrings相关的显示见面。

一直想用 Quick.Logger.Provider.StringList，然后指定页面里面的 TMemo.lines 来实现。但可以现象的是一定会因为同步问题导致失败。

好在Quick 的开发者提供了一个解决办法，配置事件的方式。见Quick.Logger.Provider.Events 45行左右。

  {$IFDEF FPC}
  TLoggerEvent = procedure(LogItem : TLogItem) of object;
  {$ELSE}
  TLoggerEvent = reference to procedure(LogItem : TLogItem);
  {$ENDIF}

然后通过事件方式实现TMemo.lines 的数据刷新同步。

procedure TMainForm.OnNewLog(aLogItem :TLogItem);
begin
  ThreadSafeUpdateMemo(format('%s [%s] %s (TreadId: %d)', [DateTimeToStr(aLogItem.EventDate),
    aLogItem.EventTypeName, aLogItem.Msg, aLogItem.ThreadId]));
end;

procedure TMainForm.ThreadSafeUpdateMemo(const aMsg :string);
const
  maxSize :word = 80;
begin
  CS_UI.Enter;
  try
    mmLogShow.Lines.BeginUpdate;
    mmLogShow.Lines.Add(aMsg);
    while mmLogShow.Lines.Count > maxSize do
      mmLogShow.Lines.Delete(0);
    mmLogShow.Lines.EndUpdate;
    mmLogShow.Invalidate;
  finally
    CS_UI.Release;
  end;

end; 

确实起到了效果，但发现并不是每次都有效，总会导致程序莫名挂掉。

之后决定还是用 配置缓冲，然后用Timer 周期性更新界面 ...