freepascal.ru

Обнаружил новую для себя вещь... разъясните пожалуйста теорию...

Так не работает

Код: Выделить всё

const
  ID_CONFIG    = -99;
  ID_SUBSYSTEM = -98;
  ID_CATALOGS  = -97;
  ID_SQL       = -96;
...
var j: integer;
...
j:= -97

if (j in [ID_CONFIG, ID_SUBSYSTEM, ID_CATALOGS, ID_SQL]) then // не работает... False

А так работает

Код: Выделить всё

...
if (abs(j) in [abs(ID_CONFIG), abs(ID_SUBSYSTEM), abs(ID_CATALOGS), abs(ID_SQL)]) then //работает, т.е. True

И так тоже работает

Код: Выделить всё

...
  if (
  (j = ID_CONFIG) or
  (j = ID_SUBSYSTEM) or
  (j = ID_CATALOGS) or
  (j = ID_SQL)
    ) then //работает, т.е. true

Почему в первом случае возвращается False???

Да просто все.

Код: Выделить всё

if (j in [ID_CONFIG, ID_SUBSYSTEM, ID_CATALOGS, ID_SQL]) then // не работает... False

Не работает т.к. J является Integer а [...] является Set. Разные типы, типа. При сравнении приводится к одному типу Set, ибо, in можно применять только к Set. Вощем, не попадает Byte(-97) в интервал от 0 до 3 поэтому и False.
Во втором и третьем случае все приводится к типу Integer. Поэтому получаем TRUE.

Насколько я знаю, конструкция [...] - это Set of Byte... Вот такое -

Код: Выделить всё

const
  ID_CONFIG = -99;
  ID_SUBSYSTEM = -98;
  ID_CATALOGS = -97;
  ID_SQL = -96;

var j: integer;

begin
  j:= -97;
  If (Byte(j) in [ID_CONFIG, ID_SUBSYSTEM, ID_CATALOGS, ID_SQL]) Then
    WriteLn('Yahoo');
end. 


Работать будет но со всеми вытекающими из преобразования Integer в Byte

vada писал(а):... а [...] является Set....

Brainenjii писал(а):...конструкция [...] - это Set of Byte...

Мдя.... как все очевидно...
Спасибо, и простите, что отнял время, жара, понимаете ли...