如何在文本中查找西里尔文字词？Pos函数匹配失效问题求助

看起来你在Delphi里遇到了查找西里尔字符的坑——用Pos()找「пак」总是返回0，试了各种字符串类型都不管用对吧？我来帮你拆解下问题原因和解决办法：

可能的核心原因 #

1. 编码不统一：当你混用UnicodeString、AnsiString、UTF8String时，如果系统默认代码页不支持西里尔字符，字符会被错误转换，导致匹配失败。
2. 源文件编码问题：如果你的代码文件是ANSI编码，「пак」这类西里尔字符会被存成错误的字节，编译后和目标字符串里的Unicode字符不匹配。
3. _D宏的不确定性：_D依赖项目的UNICODE宏定义，如果项目不是Unicode编译模式，_D("пак")会被解析成ANSI字符串，自然匹配不了Unicode的目标文本。

具体解决方案 #

1. 统一使用UnicodeString处理所有字符串

Delphi 2009及以后默认是Unicode编译模式，String本质就是UnicodeString，直接统一用这个类型避免编码混乱：

function f(const Zal: UnicodeString): Boolean;
begin
  // 直接用Unicode字符串查找，不用转来转去
  if (Pos('пак', Zal) <> 0) or (Pos('УТ', Zal) <> 0) then
  begin
    // 执行你的业务逻辑 smth
  end;
  Result := True;
end;

如果是Delphi XE及以后版本，还可以用更直观的Contains方法：

function f(const Zal: UnicodeString): Boolean;
begin
  if Zal.Contains('пак') or Zal.Contains('УТ') then
  begin
    // 执行你的操作
  end;
  Result := True;
end;

2. 确保源文件编码正确

右键你的代码文件，检查编码设置——要改成UTF-8 with BOM或者UTF-16，这样「пак」才能被编译器正确识别为Unicode字符，而不是乱码字节。

3. 外部输入的字符串要保证编码正确

如果Zal是从文件、数据库或者用户输入来的，读取的时候一定要指定正确的编码：

• 读取文件用TFile.ReadAllText(FileName, TEncoding.UTF8)
• 数据库字段要设置成Unicode类型（比如SQL Server的nvarchar），读取时直接映射为UnicodeString

额外排查点 #

如果还是不行，你可以先输出Zal和查找字符串的Unicode码点，确认两者是否一致：

// 输出字符的Unicode码点，检查是否匹配
ShowMessage(Format('Zal[6]: %d, 目标п: %d', [Ord(Zal[6]), Ord('п')]));

（这里假设「п」在Zal的第6位，根据你的示例「180121-5пак」调整位置）

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