Множество кириллицы

[Sauber]

В общем проблема в следующем: я объявил множество кириллицы, но символ из кириллицы при проверке на принадлженость выдаёт false. Подскажите пожалуйста, в чем проблема.

  const
Kiriliza: Set of 'а'..'я'=['а'..'я'];

s1:='е';
if s1 in Kiriliza then Result:=true else Result:=false;

[Serge_Bliznykov]

1) НЕ ПОДТВЕРЖДАЮ!

const
  Kiriliza: Set of 'а'..'я'=['а'..'я'];

function TestKir : boolean;
var s1 : char;
begin
 s1:='е';
 if s1 in Kiriliza
    then Result:=true else Result:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TestKir then ShowMessage('Буква входит в кириллицу!')
    else ShowMessage('Нет, это не кириллица!');
end;

Результат - 'Буква входит в кириллицу!'


2)
при подобном описании ОЧЕНЬ важно, под какой ОС работает компилятор. (точнее, какая кодовая таблица используется).
Подобное описание элементов множества через .. предполагает, что создаётся множество от элемента с кодом 'a' до элемента с кодом 'я'!
А ведь коды букв зависят от кодовой таблицы - где в таблице буква 'а' (какой у неё код), где буква 'я'(какой код) и какие символы имеют коды,
попадающие в диапазон между ними!

Например,
такое в описание в TurboPascal породит следующее множество:

[Sauber]

хм, странно. ОС Windows 7, Рабочая среда- Embarcadero.

 const
Kiriliza: Set of 'а'..'я'=['а'..'я'];
Latiniza: Set of 'a'..'z'=['a'..'z'];
Numbers: Set of '0'..'9'=['0'..'9'];
type
 func=function ( a,b:widechar):boolean;
procedure Sortirovka(var a:string; f:func);
function Light(s1,s2:char):boolean;
function Hard(s1,s2:char):boolean;

implementation
function Light(s1,s2:widechar):boolean;
begin
if s1>s2 then Result:=True else result:=false;
end;

function Hard(s1,s2:widechar):boolean;
begin
if (s1 in Kiriliza) and (s2 in Kiriliza) then  if s1>s2 then Result:=true else
 Result:=false;

При режиме отладки возвращает false

прописал ваш код и у меня выдает: "Нет, это не кириллица"

[Stilet]

var s1 : char;

В 2010 ке возможно символ юникодовый. Попробуй указать тип AnsiChar;

[Sauber]

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

В 2010 ке возможно символ юникодовый. Попробуй указать тип AnsiChar;

спасибо Вам большое, помогло)

а также string сменить на AnsiString нужно