Запрет ввода кириллицы и символов

[Shouldercannon]

Хочу разрешить вводить только латиницу и цифры

procedure TFormSigninSignup.ESingInLoginKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (AnsiChar(Key) in ['0'..'9', 'a'..'z', 'A'..'Z', Chr(8)]) then Key := #0;
end;

Прописную кириллицу пропускает, строчную нет.
Где дыра?

[Serge_Bliznykov]

простите, а зачем Вы делаете AnsiChar(Key) ?
просто Key разве не катит?

[Аватар]

Юникод? А так

  if not (AnsiChar(Ansistring(Key)[1]) in ['0'..'9', 'a'..'z', 'A'..'Z', Chr(8)]) then Key := #0;

хотя перевод в анси может плохо закончиться. Лучше так

if Pos(Key,'строка допустимых символов')=0 then Key := #0;

[Shouldercannon]

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

простите, а зачем Вы делаете AnsiChar(Key) ?
просто Key разве не катит?

Delphi XE выдаёт предупреждение
[dcc32 Warning]: W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

Сообщение от Аватар

Юникод? А так

  if not (AnsiChar(Ansistring(Key)[1]) in ['0'..'9', 'a'..'z', 'A'..'Z', Chr(8)]) then Key := #0;

хотя перевод в анси может плохо закончиться. Лучше так

if Pos(Key,'строка допустимых символов')=0 then Key := #0;

Оба варианта работают