Delphi 如何使用TStringHelper测试两个字符串的大小写不敏感相等性？

我可能忽略了一些东西，但似乎没有内置函数，如：

var
  B: Boolean;
  S: string;
begin
  S := 'Test';
  B := S.SameText('TEST');
  Assert(B);
end;

.NET具有以下功能：

我能想到的两个版本是：

// Ordinal?
string.CompareText(S, 'TEST') = 0
// Culture specific
string.Compare(S, 'TEST', True, TLanguages.UserDefaultLocale)

让我感到不安的是，我必须将其与0进行比较，而不是比较好的旧

SameText

：

SameText(S, 'TEST')

Embarcadero是否忽略了在

TStringHelper

上提供

SameText

Embarcadero是否忽略了在TStringHelper上提供相同的文本

---

对

也许只使用“旧的”SametText函数是可以的？

TStringHelper

有一个纯的

CompareOrdinal

方法@fant Yes，但它的行为与SametText不同

SameText(S, 'TEST')