Delphi 7中ClientDataSet过滤含ñ字符数据失效，如何解决？

问题根源 #

Delphi 7 默认的 UpperCase 函数基于 AnsiString，对西班牙语特殊字符（如 ñ/Ñ）的大小写转换支持不完善，无法正确将 ñ 转为 Ñ；同时 ClientDataSet 的内置 UPPER 过滤函数对这类特殊字符的处理也存在局限。

解决方案 #

方案1：使用指定代码页的大小写转换函数 #

利用 AnsiUpperCaseEx 函数（需引用 SysUtils 和 Windows），指定西班牙语对应的代码页（ISO-8859-1 代码页为 28591，Windows Latin-1 为 1252），确保特殊字符正确转换：

uses SysUtils, Windows;

procedure TfmForm.gdPersonalKeyPress(Sender: TObject; var Key: Char);
var
  SearchText: AnsiString;
begin
  ClientDataSetUsers.Filtered := False;
  // 指定西班牙语代码页执行大写转换
  SearchText := AnsiUpperCaseEx(lbSearch.Caption, 28591);
  ClientDataSetUsers.Filter := 'UPPER(lastname) LIKE ' + #39 + '%' + SearchText + '%' + #39;
  ClientDataSetUsers.Filtered := True;
end;

方案2：利用宽字符API转换+不区分大小写过滤 #

改用 Windows 宽字符 API CharUpperW 处理大小写转换，并开启 ClientDataSet 的不区分大小写过滤选项，避免依赖内置 UPPER 函数：

uses Windows;

procedure TfmForm.gdPersonalKeyPress(Sender: TObject; var Key: Char);
var
  WideSearch: WideString;
  AnsiSearch: AnsiString;
begin
  ClientDataSetUsers.Filtered := False;
  WideSearch := lbSearch.Caption;
  // 宽字符模式下正确转换Ñ
  CharUpperW(PWideChar(WideSearch));
  AnsiSearch := WideSearch;
  // 设置过滤选项为不区分大小写
  ClientDataSetUsers.FilterOptions := [foCaseInsensitive];
  ClientDataSetUsers.Filter := 'lastname LIKE ' + #39 + '%' + AnsiSearch + '%' + #39;
  ClientDataSetUsers.Filtered := True;
end;

方案3：数据库层面预处理大写字段 #

在 PostgreSQL 查询时直接生成大写版本的姓氏字段，利用数据库对西班牙语字符的原生支持，避免 Delphi 端的转换问题：

数据库查询语句修改：

SELECT *, UPPER(lastname) AS lastname_upper FROM public.users

Delphi 过滤代码：

procedure TfmForm.gdPersonalKeyPress(Sender: TObject; var Key: Char);
var
  SearchText: string;
begin
  ClientDataSetUsers.Filtered := False;
  // 直接使用用户输入的内容，数据库已完成正确的大写转换
  SearchText := '%' + lbSearch.Caption + '%';
  ClientDataSetUsers.Filter := 'lastname_upper LIKE ' + #39 + SearchText + #39;
  ClientDataSetUsers.Filtered := True;
end;

额外注意事项 #

• 确保 Delphi 应用的系统区域设置为西班牙语（控制面板 -> 区域和语言选项），保障 AnsiString 字符编码匹配。
• 如果使用 UTF-8 编码的 PostgreSQL 数据库，需确保 ClientDataSet 字段的字符集正确映射，可考虑使用 WideString 类型字段存储数据。

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