delphi - 如何在现代 Delphi 中使用 SameText for AnsiStrings？

Question

我需要比较两个 AnsiStrings 以查看它们是否具有相同的文本(忽略大小写)。

var
  text1, text2: AnsiString;
begin
  if SameText(text1, text2) then
  ...

在 Unicode 之前的 Delphi 中，我会使用 SameText 函数，但在现代 Delphi 中只有 Unicode 版本，所以我收到此警告:W1057 隐式字符串转换自 '调用时将 AnsiString' 更改为 'string'。

我的问题是，如何在现代 Delphi 中正确比较 AnsiStrings 而不会收到编译器警告(并且无需多余地将两个字符串转换为 UnicodeString(text))

Answer 1

确实，有一个 AnsiStrings 模块可以保留字符串 utils 的所有旧 AnsiString 版本:)

所以解决办法如下:

uses
  System.AnsiStrings;
...
var
  text1, text2: AnsiString;
begin
  if AnsiStrings.SameText(text1, text2) then
  ...