Skip to content

Commit

Permalink
New sample for TLoggerProFileByFolderAppender
Browse files Browse the repository at this point in the history
  • Loading branch information
danieleteti committed May 29, 2024
1 parent 59be284 commit b3ca81b
Show file tree
Hide file tree
Showing 3 changed files with 1,160 additions and 0 deletions.
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
unit LoggerProConfig;

interface

uses
LoggerPro;

function Log: ILogWriter;

implementation

uses
LoggerPro.FileAppender;

var
_Log: ILogWriter;

function Log: ILogWriter;
begin
Result := _Log;
end;

initialization

// Create up to 10 logs in the exe\logs folder, max 2MiB each, using DEFAULT_FILENAME_FORMAT = '{module}.{number}.log';

_Log := BuildLogWriter([
TLoggerProFileByFolderAppender.Create(10, 2048, 'logs')
]);

end.
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
program file_appender_by_folder;

uses
Vcl.Forms,
LoggerProConfig in 'LoggerProConfig.pas',
MainFormU in '..\common\MainFormU.pas' {MainForm};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Loading

0 comments on commit b3ca81b

Please sign in to comment.