Delphi TFDQuery 多条件过滤配置及YearOf函数使用咨询

报错根因说明 #

你之前直接在Filter字符串中写YearOf触发运行错误，核心原因是：TFDQuery的Filter属性表达式由FireDAC内置的独立表达式引擎解析执行，和当前Delphi代码单元的编译运行上下文完全隔离。你在uses中引入的DateUtils.YearOf是Delphi编译期绑定的本地函数，Filter引擎没有权限访问该函数，只会把字符串里的YearOf判定为未定义的字段名或非法函数，最终抛出运行异常。

动态年份的正确实现方案 #

根据字段存储类型的不同，有两种可落地的适配方式：

• 本地预计算值拼接（适配你当前的数值型年份字段场景）
  在Delphi代码侧先通过YearOf()算出当前年份的整数值，再把计算结果拼接到Filter字符串中，这是你当前临时变通方案的标准化优化写法，示例代码：

  uses DateUtils;
  var
    CurrentYear: Word;
  begin
    CurrentYear := YearOf(Now()); // 本地代码执行，拿到明确的整数年份
    with FDQuery2 do
    begin
      Filtered := False;
      // 把计算好的数值直接传入表达式，无需额外转义
      Filter := Format('"Posting Year" = %d', [CurrentYear]);
      Filtered := True;
    end;
  end;
  

• Filter内置函数直写（仅适配日期类型字段场景）
  如果字段实际存储的是完整日期值，而非单独的数值年字段，可以直接使用FireDAC过滤器白名单内置的Year()函数（注意区分该引擎内置函数和本地YearOf的差异），无需提前在本地计算值，示例：

  Filter := '"PostingDate" = Year(Now())';
  

多条件过滤的配置实现 #

FireDAC过滤器完全支持多表达式叠加，语法规则和SQL WHERE子句保持一致，无需额外特殊配置：

• 条件之间通过AND/OR/NOT逻辑运算符连接，直接写在同一个Filter字符串内即可生效。
• 注意两类内容的转义规则：
  • 包含空格、保留字的字段名，必须用双引号包裹（和你现有写法保持一致即可）
  • 字符串类型的过滤值（比如文本格式的月份名），必须用两个单引号包裹（单引号是表达式的字符串边界符，双引号仅用于包裹字段名）
    比如要实现「匹配当前年份 + 1月」的组合过滤，正确写法如下：

  with FDQuery2 do
  begin
    Filtered := False;
    // 两个条件用AND连接，字符串值January用两个单引号转义
    Filter := '"Posting Year" = 2021 AND "Posting Month" = ''January''';
    Filtered := True;
  end;
  

动态多条件拼接示例 #

如果需要灵活调整过滤条件，可以逐段拼接表达式字符串，避免硬编码带来的维护问题：

var
  FilterExpr: string;
  CurrentYear: Word;
  TargetMonth: string;
begin
  CurrentYear := YearOf(Now());
  TargetMonth := 'January';
  // 先拼接年份条件
  FilterExpr := Format('"Posting Year" = %d', [CurrentYear]);
  // 再拼接月份条件
  FilterExpr := FilterExpr + Format(' AND "Posting Month" = ''%s''', [TargetMonth]);

  with FDQuery2 do
  begin
    Filtered := False;
    Filter := FilterExpr;
    Filtered := True;
  end;
end;

常见避坑提示 #

• 修改Filter内容前，必须先将Filtered属性设为False，否则修改不会即时生效，部分场景会抛出运行异常。
• 不要尝试把任何Delphi本地定义的函数、自定义变量名直接写进Filter字符串，所有动态值都需要在本地代码侧完成计算、转义后再传入表达式。

内容的提问来源于stack exchange，提问作者Michél Nguyen