Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

LoggerXE

Delphi 日志类(Logger Class for delphi xe)

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Delphi ��־��(Logger Class for delphi xe)

����:

  • Debug�����ԣ�ͨ���ڿ����лὫ������Ϊ��͵���־�������������ϸ�ĵ�����Ϣ��
  • Info����Ϣ������������õ���Ϣ��ʹ�ý�ΪƵ����
  • Warn�����棬���������DZ�ڴ�������Σ���Ȼ���򲻻ᱨ����������ע�⡣
  • Error�����󣬼�¼������쳣��Ϣ��
  • Fatal����������һ�������������������Ҫֹͣ��

��־�ļ�λ��

����ͨ������Root���ı���־�ļ�λ�ã���������ã���־ȱʡ�洢��

  • Windows: ��������Ŀ¼/log/
  • MacOS /Users/��ǰ�û�/.������/log/

ע��

g_Loggerʵ���Ѿ��Զ�����������ֱ��ʹ��

ʹ�÷�����

pascal
uses
  Logger;
...
g_Logger.Debug('This is a %s log',['debug'])
g_Logger.Error('������һЩ����');
pascal
VCL????????????????
g_Logger.OnLog := procedure(Sender: TObject; ALevel: TLogLevel; ALevelTag: string; ALog: string; ATime: TDateTime)
  begin
    if mmoLog.Lines.Count > 1000 then
      mmoLog.Text := 'clear...';
    mmoLog.Lines.Add(Format('%s%s%s', [FormatDateTime('hh:mm:ss', ATime), ALevelTag, ALog]));
  end;
pascal
FMX????????????????
g_Logger.OnLog := procedure(Sender: TObject; ALevel: TLogLevel; ALevelTag: string; ALog: string; ATime: TDateTime)
  begin
    if mmoLog.Lines.Count > 1000 then
      mmoLog.Text := 'clear...';
    mmoLog.Lines.Add(Format('%s%s%s', [FormatDateTime('hh:mm:ss', ATime), ALevelTag, ALog]));
    mmoLog.GoToTextEnd;
  end;