XE 2 'in'

[kta87]

Подскажите как подправить этот код

Key in (['\', '/', ':', '*', '?', '"', '<', '>', '|'])

написанный для d7 под XE 2

[kta87]

тему можно закрывать ... все адаптировал!

[Stilet]

И как же? Похвастайся.

[kta87]

Для общей пользы пожалуйста пользуйтесь

case Key of
  '\', '/', ':', '*', '?', '"', '<', '>', '|':
   begin
     Key:= Chr(0);
   end;
 end;

[Stilet]

написанный для d7 под XE 2

Не понимаю... И в Д7 и в ХЕ это пишется одинаково... Что тут адаптировать то?

[kta87]

А вы бы попробовали вот этот пример и встретили бы сразу же Warning

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

какой Warning?
текст в студию.

[kta87]

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

[DCC Warning] ACode.pas(600): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.

Переводить думаю не стоит да, ну а по нажатию F1 все становиться ясно...

[Человек_Борща]

можно ещё и так:

const
  Arr:array[0..8] of Char=('\', '/', ':', '*', '?', '"', '<', '>', '|');
begin
 If  (key in Arr) then
 Key:=#0; 
end;

или

 for key in Arr do

[kta87]

ага, но так код длиннее, вот елси бы такое поле было не одно то константа прям бы кстати, а так, в моем частном случает с

case ... to

все намного проще...