Delphi 2009 нужна помощь

[alexuss88]

Перешел в Delphi 2009 с delphi 7 и еще не разобрался с юникодом.
Нужно запретить ввод всех символов кроме кириллицы

Если использовать это, то не вводится вообще ничего((
if not (Key in ['А'..'я', #8, #13]) then key:=#0;

Если так, то только латиница
if not (Key in ['А'..'я','A'..'z', #8, '0'..'9', #32]) then key:=#0;

Помогите пожалуйста кто разбирается!

[mutabor]

Я тоже не сразу привык. Все что тебе нужно знать - это то что теперь по умолчанию все строки и чары - wide, а однобайтные теперь нужно явно указывать - AnsiChar, AnsiString. Это нужно всегда помнить во избежание ошибок. В связи с этим теперь операции с множествами с юникодовыми типами не поддерживаются, компилятор предлагает использовать специальную функцию, можно еще привести к Ansi. Это что касается юникода вообще.

По теме, посмотри что пишет компилятор в предупреждениях, посмотри в отладчике что приходит в функцию и поймешь в чем ошибка.

[Квэнди]

SysUtils

function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload;

TSysCharSet = set of AnsiChar;

Use CharInSet to check whether a given character is contained within a set of characters. CharInSet checks whether the C parameter is contained within the CharSet set. C can either be a Unicode or an ANSI character, while CharSet can only be a set of ANSI characters. The function returns True if the character is contained within the set and False if the character is not contained within the set or if the character is Unicode.

Note: We recommend that the TCharacter class (which is Unicode enabled) be used whenever possible to check whether a character enters a certain category, such as digits or letters.

TSysCharSet is a set containing ANSI characters. TSysCharSet is useful when passing a set of characters to various functions that require them. TSysCharSet is primarily used in the CharInSet routine, which detects whether a given character is contained within the set.

Note: You cannot use TSysCharSet to group Unicode characters. This means that TSysCharSet cannot be used to check whether an Unicode character is a part of TSysCharSet.