LoggerPro缺失FMXMemoAppender.pas，如何将VCL文件转为FMX文件？

核心转换思路 #

VCL和FMX的Memo组件核心功能一致，但依赖单元、部分属性/方法有差异，转换的关键是替换VCL相关的引用和调用，适配FMX框架的API规范。

具体操作步骤 #

1. 复制VCL版文件作为基础模板
   从仓库找到LoggerPro.VCLMemoAppender.pas，复制一份并重命名为LoggerPro.FMXMemoAppender.pas。

2. 替换单元引用

   • 删除VCL专属单元：Vcl.StdCtrls、Vcl.Controls
   • 添加FMX对应单元：FMX.StdCtrls、FMX.Controls

3. 调整Memo组件的操作逻辑

   • FMX的TMemo同样支持Lines.Add()方法，这部分无需修改
   • 若涉及线程安全（LoggerPro是多线程日志库），VCL中使用的TThread.Synchronize在FMX中完全兼容，保留即可
   • 检查VCL特有的属性（如ScrollBars），替换为FMX对应属性（比如ScrollBarVisibility），按需调整

4. 更新类与导出函数的命名
   将原文件中的类名TLoggerProVCLMemoAppender改为TLoggerProFMXMemoAppender，同时调整导出函数名（比如改为GetFMXMemoAppender），保持命名规范统一。

5. 测试验证
   在FMX项目中引入新创建的单元，初始化LoggerPro时指定使用这个FMX Appender，测试日志是否能正常写入FMX Memo，重点验证多线程场景下的稳定性，避免跨线程组件访问错误。

示例转换后的代码片段 #

unit LoggerPro.FMXMemoAppender;

interface

uses
  System.SysUtils, System.Classes, LoggerPro, FMX.StdCtrls, FMX.Controls;

type
  { TLoggerProFMXMemoAppender }
  TLoggerProFMXMemoAppender = class(TLoggerProAppenderBase)
  private
    FMemo: TMemo;
    FMaxLines: Integer;
    procedure AddLineToMemo(const aLine: string);
  public
    constructor Create(aMemo: TMemo; aMaxLines: Integer = 1000); reintroduce;
    procedure Setup; override;
    procedure TearDown; override;
    procedure WriteLog(const aLogItem: TLogItem); override;
  end;

function GetFMXMemoAppender(aMemo: TMemo; aMaxLines: Integer = 1000): ILogAppender;

implementation

uses
  System.Threading;

{ TLoggerProFMXMemoAppender }

procedure TLoggerProFMXMemoAppender.AddLineToMemo(const aLine: string);
begin
  TThread.Synchronize(nil,
    procedure
    begin
      FMemo.Lines.Add(aLine);
      while FMemo.Lines.Count > FMaxLines do
        FMemo.Lines.Delete(0);
      FMemo.GoToTextEnd;
    end);
end;

constructor TLoggerProFMXMemoAppender.Create(aMemo: TMemo; aMaxLines: Integer);
begin
  inherited Create;
  FMemo := aMemo;
  FMaxLines := aMaxLines;
end;

procedure TLoggerProFMXMemoAppender.Setup;
begin
  // 按需添加初始化逻辑
end;

procedure TLoggerProFMXMemoAppender.TearDown;
begin
  // 按需添加清理逻辑
end;

procedure TLoggerProFMXMemoAppender.WriteLog(const aLogItem: TLogItem);
var
  lLogLine: string;
begin
  lLogLine := FormatLog(aLogItem);
  AddLineToMemo(lLogLine);
end;

function GetFMXMemoAppender(aMemo: TMemo; aMaxLines: Integer): ILogAppender;
begin
  Result := TLoggerProFMXMemoAppender.Create(aMemo, aMaxLines);
end;

end.

额外注意事项 #

• 确保FMX项目已正确引用LoggerPro核心单元
• 如需自定义日志格式，可重写FormatLog方法
• 线程同步逻辑必须保留，否则会触发FMX组件跨线程访问的异常

内容的提问来源于stack exchange，提问作者Franz