Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.04.13;
Скачать: CL | DM;

Вниз

Множества set of   Найти похожие ветки 

 
San1   (2008-03-20 13:47) [0]

Здравствуйте! Подскажите пожалуйста.

Есть множество TState= set of (s1,s2,s3,s4,s5);
var
state:TState;

делаю следующее:
...
include(State,s1);
include(State,s2);
...

Необходимо проверить вхождение добавленных значений в множество

if (sgOver in FStatusGame) or (sgVictory in FStatusGame) then Exit;

Можно ли записать это короче? Что-то вроде:

if (sgOver or sgVictory) in FStatusGame then Exit;


 
Reindeer Moss Eater ©   (2008-03-20 13:49) [1]

чтобы можно было короче нужны не множества, а битовые маски.


 
San1   (2008-03-20 13:51) [2]

А что это такое - битовые маски?


 
Reindeer Moss Eater ©   (2008-03-20 13:52) [3]

Либо зайти с другого бока и определить заранее предопределенные подмножества можества типа как это сделано для

dsEditModes


 
Плохиш ©   (2008-03-20 13:58) [4]


> Можно ли записать это короче? Что-то вроде:
>
> if (sgOver or sgVictory) in FStatusGame then Exit;


if ([sgOver, sgVictory] * FStatusGame) <> [] then Exit;


 
Reindeer Moss Eater ©   (2008-03-20 13:58) [5]

//if (sgOver or sgVictory) in FStatusGame then Exit;

if ((2 or 4) and 12) > 0 then Exit


 
Семеныч   (2008-03-20 14:38) [6]

[4]. И говорить более не о чем.



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

Текущий архив: 2008.04.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
15-1203982965
BlackSun
2008-02-26 02:42
2008.04.13
Полупрозрачный заголовок формы в XP


15-1204329746
Riply
2008-03-01 03:02
2008.04.13
Опять проблеммы с RAD Studio


2-1205754947
Sonia
2008-03-17 14:55
2008.04.13
Графика на TurboPascal


4-1186753790
Alkid
2007-08-10 17:49
2008.04.13
OpenNtsmSession + 64-bit Windows XP


2-1205931312
Deled
2008-03-19 15:55
2008.04.13
Регистры