Проверка ввода данных в Delphi XE5

[WInnER2192]

Добрый день написал программу и начал создавать защиту от дурака, и столкнулся с такой проблемой. Мне нужно что бы пользователь в эдит мог вводить только буквы русского алфавита, я написал проверку , НО она не работает, хотя в delphi 7 все хорошо работает
Вот код :

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['а'..'Я','0'..'9',#8])then Key:=#0;
end;
Цифры и английский алфавит пропускает, а вот если делаю русский, то не пропускает.
Временно пока что сделал вот такой код
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not(((Key >= 'а') and (Key <= 'я')) or ((Key >= 'А') and (Key <= 'Я')) or (Key=#8)) then Key:=#0;
end;

Повторяю пишу в delphi XE5

[Stilet]

Поправьте меня если ошибаюсь, но в ХЕ-шках исходник описыватся в юникоде. Соответственно и русские буквы в юникоде. Попробуй в редакторе Делфи перекодировать исходник в ANSI. По крайней мере в Лазарусе это помогает.

[WInnER2192]

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

Поправьте меня если ошибаюсь, но в ХЕ-шках исходник описыватся в юникоде. Соответственно и русские буквы в юникоде. Попробуй в редакторе Делфи перекодировать исходник в ANSI. По крайней мере в Лазарусе это помогает.

Вот я попробовал

Код:
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in [chr(1040)..chr(1103),'0'..'9',#8])then Key:=#0;
end;

Вот так пробовал, то же не получается
1040 - а 1103- Я

[Stilet]

Сложно сказать как в ХЕшках работает in. Говорю же - попробуй перекодировать сам исходник. Я давно в Делфи уже не работаю, но это пока единственное что могу предложить по памяти.

[Аватар]

  if not (AnsiString(Key)[1] in ['А'..'Я','а'..'я','0'..'9',#8]) then Key:=Chr(0);

[northener]

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

Поправьте меня если ошибаюсь, но в ХЕ-шках исходник описыватся в юникоде. Соответственно и русские буквы в юникоде.

Нет не то.
Просто конструкция ['А'..'Я','а'..'я','0'..'9',#8] рассматривается компилятором как set of AnsiChar. Ибо другого толкования эта конструкция не допускает. А Char в Д2009+ это WideChar. Только поэтому проверка Key in ['а'..'Я','0'..'9',#8] не работает для нелатинских символов. Единственный выход это как-то приводить Key к AnsiChar. Например так как показал Аватар.
P.S. А кодировка pas-файла к этому не имеет никакого отношения.

[Vapaamies]

Мне, кажется, я уже писал где-то такую забористую проверку в стиле FastCode:

begin
  if (Word(Key) and $FF00 = $0400) and (Byte(Key) in [$01, $10..$4F, $51]) then
  begin
    // русские буквы, включая Ё/ё
  end;
end;

Менее забористо будет так:

begin
  if (Key >= 'А' and Key <= 'я') or (Key = 'Ё') or (Key = 'ё') then
  begin
    // русские буквы, включая Ё/ё
  end;
end;

[WInnER2192]

Большое спасибо всем, отдельное спасибо Аватару