Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2012, 14:51   #1
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию XE 2 'in'

Подскажите как подправить этот код
Код:
Key in (['\', '/', ':', '*', '?', '"', '<', '>', '|'])
написанный для d7 под XE 2
kta87 вне форума Ответить с цитированием
Старый 19.02.2012, 15:07   #2
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

тему можно закрывать ... все адаптировал!
kta87 вне форума Ответить с цитированием
Старый 19.02.2012, 15:12   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

И как же? Похвастайся.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.02.2012, 20:18   #4
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

Для общей пользы пожалуйста пользуйтесь
Код:
case Key of
  '\', '/', ':', '*', '?', '"', '<', '>', '|':
   begin
     Key:= Chr(0);
   end;
 end;
kta87 вне форума Ответить с цитированием
Старый 19.02.2012, 22:20   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
написанный для d7 под XE 2
Не понимаю... И в Д7 и в ХЕ это пишется одинаково... Что тут адаптировать то?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.02.2012, 22:25   #6
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

А вы бы попробовали вот этот пример и встретили бы сразу же Warning
kta87 вне форума Ответить с цитированием
Старый 19.02.2012, 22:31   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

какой Warning?
текст в студию.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 19.02.2012, 22:46   #8
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

предлагаете все вернуть как было а потом опять переписать
Мы с человеком - борща сегодня в icq обсуждали этот конфуз, если в истории найду то выложу...
О нашел... итак из переписки с ч-б:
Код:
[DCC Warning] ACode.pas(600): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.
Переводить думаю не стоит да, ну а по нажатию F1 все становиться ясно...

Последний раз редактировалось kta87; 19.02.2012 в 22:50.
kta87 вне форума Ответить с цитированием
Старый 19.02.2012, 22:56   #9
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

можно ещё и так:
Код:
const
  Arr:array[0..8] of Char=('\', '/', ':', '*', '?', '"', '<', '>', '|');
begin
 If  (key in Arr) then
 Key:=#0; 
end;
или
Код:
 for key in Arr do
Человек_Борща вне форума Ответить с цитированием
Старый 19.02.2012, 22:59   #10
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

ага, но так код длиннее, вот елси бы такое поле было не одно то константа прям бы кстати, а так, в моем частном случает с
Код:
case ... to
все намного проще...
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск