Главная страница
    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.45 MB
Время: 0.006 c
3-1195555156
AlexeyMir
2007-11-20 13:39
2008.04.13
Добавление записи в IBQuery+IBUpdateSQL


15-1203995117
Светик
2008-02-26 06:05
2008.04.13
Ошибка CRC


15-1204064466
GanibalLector
2008-02-27 01:21
2008.04.13
Модем Siemens MC35i


15-1204357960
Анитивус
2008-03-01 10:52
2008.04.13
Бесплатные антивирусы


2-1205665714
Igor23
2008-03-16 14:08
2008.04.13
Дата





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский