mORMot2的基础日志使用之一——TSynLog.Family

uses
mormot.core.log, 

mormot.core.base, 

mormot.core.rtti,

核心库引入：mormot.core.log

procedure TForm1.FormCreate(Sender: TObject);
begin

  with TSynLog.Family do
  begin
   // 1. 设置日志级别：记录所有级别
    Level := LOG_VERBOSE; // 所有  [sllInfo, sllDebug]

    // 2. 设置日志位置为当前目录 (可执行文件所在目录)
    DestinationPath := '.\';

    // 3. (可选) 自定义日志文件名前缀
    CustomFileName := 'MyAppLog';

    // 4. 文件已存在时追加内容
    FileExistsAction := acAppend;

    // 5. (可选) 日志轮转：单个文件达到 10MB 时切分
    RotateFileSizeKB := 10 * 1024; // 10 MB

    // 保留最近 5 个归档日志文件
    RotateFileCount := 5;

    LocalTimestamp := True;   // 使用本地时区
  end;

end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  TSynLog.Add.Log(sllDebug, 'test');
end;