Delphi -检查Unicode字符是否出现在一组字符中？

Question

此代码在Delphi-7中运行良好(直到Delphi有Unicode支持为止)：

Value := edit1.Text[1];
    
if Value in ['м', 'ж'] then ...

‘м’，‘ж’-西里尔符号

但是这个结构不适用于Unicode字符。

我尝试了很多东西，但它们都不管用。

我还尝试将值类型更改为"Char“和"AnsiChar”。

不工作：

const
  MySet : set of WideChar = [WideChar('м'), WideChar('ж')];
begin
  Value := edit1.Text[1];
  if Value in MySet then ...

不工作：

if AnsiChar(Value) in ['м', 'ж'] then ...

不工作：

if CharInSet(Value, ['м', 'ж']) then ...

，但这很好：

  if (Value = 'м') or (Value = 'ж') then ...

在Delphi的现代版本中，是否有机会使用SET来检查UNICODE字符？

还是我们应该单独检查每个字符？

我的Delphi版本是10.4更新2社区版

Answer 1

Delphi集类型最多只能处理256个值，因此不能用于处理Unicode字符。为了处理Unicode，System.Character单元提供了各种方法和帮助。

对于这种特殊情况，您可以使用一个IsInArray()字符助手。不需要声明一组字符，而是需要声明一个字符数组：

var
  ch: Char;
  a: array of Char;
  s: string;
begin
  a := ['м', 'ж'];
  s := 'abcж';
  for ch in s do
    if ch.IsInArray(a) then ...
end;

注意: Delphi XE7为初始化和使用动态数组提供了额外的语言支持，方括号也可以用于更简单的数组初始化。在上面的例子中，['м', 'ж']不是一个集合，而是一个宽字符数组。

Answer 2

检查Unicode字符是否出现在一组字符中？

你指的是德尔菲集((Delphi%29#Sets)？)吗？

通常，不可能有一个set of X，其中基类型X有超过256个可能的不同值。所以set of Byte很好，但是set of Word是不可能的。由于有256 * 256不同的宽字符值，因此不可能有一组宽字符。(如果这确实是可能的话，那么这样的set类型的变量将是8 kB大小。这将是一个异常大的变量。)

由于没有"Delphi集合的Unicode字符“，所以”如何查看一个字符是否属于Delphi的Unicode字符集“是没有意义的。

或者你只是指一个数学集合？

如果是这样的话，这当然是可能的，但您不能使用Delphi集来表示数学字符集。相反，您需要使用其他数据类型。一种可能是一个简单的数组，如果您不介意它的O(n)特性。