Скачать: CL | DM;

Символ WideChar и сет в D2009   Найти похожие ветки 

← →
Кто б сомневался ©   (2009-07-04 22:31) [0]

Есть простой код для D2009:

IllegalChars = ["\","/", "?", "*", "<", ">", ":", """, "|"];
var
 Newchr: char;
begin
 Result := Str;
 NewChr := "п" ; // русская буква п в юникоде (т.е. D 2009)
 if AnsiChar(NewChr) in IllegalChars then
     xxx            



Хочу заметить что сеты в D2009 всегда должны содержать ansi символы, иначе проект не скомпилируется.
В данном случае сравнение будет положительным, т.к. один старший байт урезается, при переводе WideChar в AnsiChar - получаем число однобайтное, которое в ANSI таблице обозначает вопросительный знак - ?.

А теперь если оставить все тоже самое, но убрать AnsiChar:

NewChr := "п" ; // русская буква п в юникоде (т.е. D 2009)
if NewChr in IllegalChars then
     xxx

Появится предупреждение - W1050 WideChar reduced to byte char in set expressions.  Consider using "CharInSet" function in "SysUtils" unit.

Но перехода не будет. Каким образом здесь идет сравнение? Во что превращается NewChar? Если бы он превращался в однобайтовый символ, то это был бы предыдущий вариант, и был бы переход. Возможно символы из сета  становятся двухбайтными (добавляется нулевой старший байт)? кто может подсказать? Я что то недопонял..

---

← →
Кто б сомневался ©   (2009-07-04 22:37) [1]

Извиняюсь, просьба удалить топик. Протупил однако.. :)

---

← →
DVM ©   (2009-07-04 22:45) [2]

Я заменил во всех проектах подобного рода SET-ы просто строкой, а IN заменил на Pos() имхо самый простой вариант.

---

← →
Anatoly Podgoretsky ©   (2009-07-04 22:48) [3]

> Кто б сомневался  (04.07.2009 22:31:00)  [0]

Одно слово CPU

---

← →
Anatoly Podgoretsky ©   (2009-07-04 22:53) [4]

> DVM  (04.07.2009 22:45:02)  [2]

Кроме записи, алфавит приходится вспоминать

---

← →
Кто б сомневался ©   (2009-07-04 23:26) [5]

> Я заменил во всех проектах подобного рода SET-ы просто строкой,
>  а IN заменил на Pos() имхо самый простой вариант.


Это при условии что в сетах нужны юникод символы. а так пойдет и обычный вариант, if WideChar in IllegalChars.
Вариант с pos - ну по сравнению с сетом - это реальный тормоз, тем более с его встроенным try finally

---

← →
Псалтырь ©   (2009-07-05 11:00) [6]

CharInSet надо юзать

---

← →
Кто б сомневался ©   (2009-07-06 16:18) [7]

> CharInSet надо юзать


Можно и не юзать. if WideChar in IllegalChars. - Код комилируется корректно, сравнение выполняется также правильно.
Компилятор советует это для того чтобы разработчик заметил это изменение (вдруг он со старых версий Delphi). Т.к. молчать комплитору нельзя в данном случае. Я просто на этом участке отключил сообщения.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c