NoLogger.pas 466 B

12345678910111213141516171819202122232425
  1. unit NoLogger;
  2. interface
  3. uses
  4. mybean.core.objects, Classes, SysUtils, StrUtils, WindowsSysVersion, superobject,
  5. Dialogs, IdHTTP, ULogger, InterfaceLogger, DateUtils, BaseLogger;
  6. type
  7. TNoLogger = class(TBaseLogger, ILogger)
  8. public
  9. procedure Log(AMessage, ACode, ALoginName, AStrLevel: string); overload; override; stdcall;
  10. end;
  11. implementation
  12. { TNoLogger }
  13. procedure TNoLogger.Log(AMessage, ACode, ALoginName, AStrLevel: string);
  14. begin
  15. end;
  16. end.