Delphi使用TLogOptions集合过滤日志触发E2015编译错误

报错根因 #

你遇到的E2015 Operator not applicable to this operand type错误，核心是Delphi运算符优先级规则导致的表达式解析错位：
not运算符的优先级高于in运算符，你原写法if not MessageType in FLogOptions会被编译器拆解为(not MessageType) in FLogOptions。
而not是按位取反操作，无法直接作用于TLogLevel这类枚举类型的集合元素，因此触发运算符不匹配的编译错误。

正确的集合判断写法 #

只需要把「判断元素是否属于集合」的逻辑用括号包裹，让not作用于整个布尔判断结果，即可正常编译运行：

if not (MessageType in FLogOptions) then
  Exit;

这个写法完全匹配需求：当日志类型不在允许集合内时直接退出流程，不写入日志。

Include/Exclude 集合操作的实际使用示例 #

Delphi 内置的Include/Exclude是专门针对集合类型优化的操作函数，相比传统的集合拼接写法（FLogOptions := FLogOptions + [llInfo]），这类方法不会生成临时集合变量，内存操作效率更高，常见用法如下：

• Include(集合变量, 要加入的枚举值)：将指定枚举值加入集合，标记该元素为已允许状态
• Exclude(集合变量, 要移除的枚举值)：将指定枚举值从集合中删除，标记该元素为已禁止状态

实际代码示例：

// 1. 集合初始化：清空默认值
FLogOptions := [];

// 2. 向允许集合中添加需要的日志类型
Include(FLogOptions, llInfo);
Include(FLogOptions, llError);
Include(FLogOptions, llException);

// 3. 从允许集合中移除不需要的日志类型
Exclude(FLogOptions, llDebug); // 示例：生产环境关闭Debug级别日志输出

修复后可正常编译的完整日志方法 #

procedure TfrmMain.Log(const s: string; MessageType: TLogLevel;
  DebugLevel: Integer; Filter: Boolean = True);
begin
  // 集合成员判断，修复原编译错误
  if not (MessageType in FLogOptions) then
    Exit;

  mmoLog.Lines.Add(s);
end;

补充提示：如果后续要拓展过滤逻辑，可以在当前集合判断的基础上，增加对DebugLevel、Filter参数的条件校验，不需要修改现有集合判断的核心逻辑。

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