关于delphi：如何使用TStringHelper测试两个字符串的odinal case-insensitive相等？

How to test two strings for odinal case-insensitive equality using TStringHelper?

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

1
2
3
4
5
6
7
8

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

.NET具有等于的三参数版本：

1	string.Equals(S,"TEST", StringComparison.OrdinalIgnoreCase);

我能想到的两个版本是：

1
2
3
4

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

让我感到不快的是，我必须将0与旧的SameText进行比较：

1	SameText(S, 'TEST')

embarcadero是否忽略了在TStringHelper上提供SameText？