Delphi

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

check if a Unicode character occurs in a set of characters?

你是说 Delphi set 吗？

一般来说，set of X 的基本类型 X 不可能有超过 256 个可能的不同值。所以 set of Byte 可以，但是 set of Word 是不可能的。由于有 256 * 256 个不同的宽字符值，因此不可能有一组宽字符。（如果这确实可能，那么这种集合类型的变量大小将是 8 kB。那将是一个异常大的变量。）

因为没有“Delphi Unicode 字符集”这样的东西，所以“如何查看一个字符是否属于 Delphi Unicode 字符集”这个问题不成立感觉。

或者您只是指数学集合？

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

Answer 2

一个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;

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

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

Delphi - check if a Unicode character occurs in a set of characters?

unicode

delphi-7