CharInSet 不适用于非英文字母？

Question

我已经将应用程序从 Delphi 2007 更新到 Delphi 2010，一切都很顺利，除了一条编译正常但不起作用的语句：

If Edit1.Text[1] in ['S','س'] then 
  ShowMessage('Found')
else
  ShowMessage('Not Found')

但是，我知道不会，所以我更改为 CharInSet

If CharinSet(Edit1.Text[1],['S','س']) then
  ShowMessage('Found')
else
  ShowMessage('Not Found')

但是当字符串为 S 时，它永远不会工作，但总是与 S 一起工作，即使我投射了 edt1.Text1 使用 AnsiChar 它总是无法使用阿拉伯字母。

我做错了什么，或者这不是 CharInSet 的工作方式？或者这是 CharinSet 中的错误？

更新：

我的好朋友Issam Ali提出了另一个效果很好的解决方案：

  If CharinSet(AnsiString(edt1.Text)[1],['S','س']) then

Answer 1

CharInSet 对于 255 以上的字符没有用。在您的情况下，您应该使用

  case C of
    'S','س' : ShowMessage('Found');
  end;

Answer 2

发生这种情况是因为 set of char 结构类型（最多限制为 256 个元素）根本不支持 Unicode。也就是说，任何字符 Ord(ch) > 都可以。 High(AnsiChar) 在集合构造函数中被截断，并发出有关将 WideChar 缩小为 AnsiChar 的警告 W1061。看下面的测试用例：

  { naturally, fails, emits CharInSet() suggestion }
  Result := 'س' in ['S','س'];

  { fails because second argument is set of AnsiChar }
  Result := CharInSet(
    'س',
    ['S','س']
  );

  { workaround for WideChar in AnsiCharSet, fails }
  Result := WideStrUtils.InOpSet(
    'س',
    ['S','س']
  );

  { a syntactical workaround, which finally works }
  Result := WideStrUtils.InOpArray(
    'س',
    ['S','س']
  );

  if Result then
    ShowMessage('PASS')
  else
    ShowMessage('FAIL');

Answer 3

此外。

集合仅限于 256 个元素的序数值。所以 AnsiChar 适合，而 (Unicode)Char 不适合。
您可以使用 CharInSet 将 Delphi 的预 unicode 版本移植到 unicode 版本。由于集合的限制，集合对于字符来说不再非常有用。

这背后的原因是集合是作为位掩码实现的。您可以自由地实现您自己的集合版本。例如：

type
  TSet<T> = class 
  public
    procedure Add(const AElem: T);
    function InSet(const AElem: T): Boolean;
  end;

Answer 4

使用 TCharHelper.IsInArray 如下：

if Edit1.Text[1].IsInArray(['S','س']) then 
  ShowMessage('Found')
else
  ShowMessage('Not Found');

Answer 5

您是否将源文件的编码设置为 UTF-8（右键单击打开上下文菜单）？ （默认为 ANSI iirc，这不起作用。）