Delphi-检查Unicode字符是否发生在一组字符中？

Question

该代码与Delphi -7（直到Delphi获得Unicode支持）非常有用：

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

'lim'，'ж' - 西里尔符号，

但这种结构与Unicode Charachter不起作用。
我尝试了很多事情，但它们不起作用。
我还尝试将值类型更改为“ 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 Set类型只能处理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引入了其他语言支持以初始化和使用动态数组，并且Square Brackets也可以用于更简单的数组初始化。在上面的示例的上下文中，['lim'，''']不是集，而是一组宽字符。

Answer 2

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

您的意思是delphi set ？

通常，不可能拥有x 的集，其中基本类型x具有超过256个可能的不同值。因此 word 一组都不可能。由于有256 * 256个不同的角色值，因此不可能拥有一组宽字符。 （如果确实可以的话，这种集合类型的变量的大小为8 kb。这将是一个异常大的变量。）

由于没有“ delphi of of delphi unicode字符”之类的东西，所以问题“如何”查看字符是否属于Delphi unicode字符集“没有意义”。

还是您只是指数学集？

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