Как сравнить символ из строки с множеством

[Caeles-Lupus]

Здравствуйте, нужна помощь с преобразованием строковых/символьных типов. Суть в том, что мне надо найти какие символы из строки(string) входят в множество символов. И так примеры:

PHP код:

...
var
  s:string;
begin
  s:='Ы';

  if (s[1] in ['А'..'Я','а'..'я']) then
    begin
    showmessage('+');
    end
  else
    begin
    showmessage('-');
    end;
...
end; 


Результат: message:'-'
Но если сделать так:

PHP код:

...
var
  s:string;
begin
  s:='Ы';

  if 'Ы' in ['А'..'Я','а'..'я']) then
    begin
    showmessage('+');
    end
  else
    begin
    showmessage('-');
    end;
...
end; 


То в результате будет: message:'+', что логично, т.к. 'Ы' явно входит в множество от А до Я
Я так понимаю что проблема в получении символа из строки s[i]. Только в чем именно проблема, в кодировке?

P.S.: СР - RAD Studio 10 Seattle

----------------

Все, кажется понял. Надо просто строке(s) задать тип AnsiString и всё. Спасибо за помощь!

[northener]

В кодировке. Юникодные символы национальных алфавитов никак не могут входить в паскалевское множество.

[Caeles-Lupus]

Тему можно закрывать, все работает

[Stilet]

if (s[1] in ['А'..'Я','а'..'я']) then

Я у себя это заменяю на

 if pos(s[1],'АЯая')<>0 then...

Надежнее работает.

[Пепел Феникса]

Виталий, а разве pos раскроет диапазон?

[Stilet]

Ой, провтыкал )))
Согласен, тут эта функция не оч. подойдет.

[northener]

А в Д2009+ вообще нет никаких красивых вариантов. Чем не пользуйся, хоть InOpArray, хоть Contains все равно приходится делать простое перечисление символов.

[Stilet]

А в Д2009+ вообще нет никаких красивых вариантов.

А регулярки?

[northener]

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

А регулярки?

Я их боюсь