string - unicode 字符串是否有等效的 ContainsStr ？

Question

今天我正在修复代码中的一些警告，其中之一是 ContainsStr 中的“W1058 隐式字符串转换，可能会导致从‘string’到‘AnsiString’的数据丢失”函数。

在搜索了一段时间这个函数的等效函数(它接受两个 unicode 字符串作为参数)之后，我决定在这里询问。我希望找到类似 ContainsWideStr (对于 Delphi 2007 及更低版本)或 ContainsUnicodeStr (对于 Delphi 2009+)的东西，但我找不到任何这些。

我知道我可以自己做这样的事情:

function ContainsUnicodeStr(const AText, ASubText: String): Boolean;
begin
  Result := Pos(ASubText, AText) > 0;
end;

但是，我想避免重复 Delphi 中已有的代码，但我根本不知道在哪里。

Answer 1

根据文档，StrUtils.ContainsStr与 Unicode 一起使用。但当然，AnsiStrings.ContainsStr没有。