string - Unicode字符串是否包含ContainsStr等效项？

今天，我在代码中修复了一些警告，其中之一是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中已经存在的代码，但是我根本不知道在哪里。

最佳答案

根据文档，StrUtils.ContainsStr与Unicode一起使用。但是，当然，AnsiStrings.ContainsStr不会。