Как использовать SameText для AnsiStrings в современном Delphi?

Question

Мне нужно сравнить две AnsiStrings, чтобы увидеть, имеют ли они один и тот же текст (игнорируя регистр).

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

В пре-Unicode Delphi Я хотел бы использовать SameText функцию, но в современном Delphi есть только версия Unicode это, так что я получаю это предупреждение: W1057 Implicit string cast from 'AnsiString' to 'string' по вызову.

Мой вопрос, как правильно сравнивать AnsiStrings в современном Delphi без получения предупреждений компилятора (и без избыточно того, чтобы бросить обе строки в UnicodeString(text))

Answer 1

Действительно, есть AnsiStrings модуль, который сохраняет все старые AnsStrings версии струнное Utils :)

Таким образом, решение выглядит следующим образом:

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