Не работает проверка вхождения символа в множество для кириллицы в Delphi XE7

[evg_m]

А всегда ли во всех таблицах алфавит с верхним регистром будет граничить с алфавитом с малым? Что-то мне помнится что бывают некоторые исключения, но пруф вспомнить не могу...

КОИ-8
cpp 866 (OEM)

[min@y™]

А чо, компайлер не выдаёт хинт, что пора бы уже юзать функцию CharInSet()?

[SQLPowerUser]

Сообщение от Serge_Bliznykov

некий Dmitry Arefiev вот тут на форуме sql.ru...

А это и есть тот самый Дмитрий, что придумал AnyDac (FireDac). Он периодически заходит на сиквел, подсказывает, если есть проблемы с его компонентами, собирает хотелки пользователей и т.д. Вот, например http://www.sql.ru/forum/1163016/fire...82759#17882759

[Vapaamies]

Сообщение от Stilet

А у меня каверзный вопрос: А всегда ли во всех таблицах алфавит с верхним регистром будет граничить с алфавитом с малым?

Таблица одна -- Юникод. Речь же про одиночные символы, которые теперь WideChar. Пруф -- стандарт Юникода. Для русского я в него посмотрел, для других алфавитов можете и сами.

[Stilet]

Ну ладно, ладно. Проехали... Я б конечно делал как Серж предложил, но и против твоего приема ничего не имею.

[DevSergo]

Сообщение от min@y™

А чо, компайлер не выдаёт хинт, что пора бы уже юзать функцию CharInSet()?

Не работает!

Вот что ещё попробовал, тоже не работает:

Не работает:

    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 ...

[northener]

Сообщение от DevSergo

Не работает:

Все. Проехали. В юникоде в Паскалевское множество могут входить только символы английского алфавита.

[DevSergo]

Сообщение от northener

Все. Проехали. В юникоде в Паскалевское множество могут входить только символы английского алфавита.

Ясненько...

На стек-оферфлоу подсказали решение - нужно загнать всё в массив.

Проверил - работает!

Вот оно:

As Delphi set type can only handle maximum of 256 values it cannot be used for handling Unicode characters. For handling Unicode System.Character unit provides various methods and helpers.

For this particular case, there is IsInArray character helper you can use. Instead of declaring set of characters, you will need to declare array of characters.

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

ссылка