Обработка констант в процедурах (Or)

[Alex Cones]

Может уже и спрашивал, тему потерял.

Const
 CONST_1 = $000001;
 CONST_2 = $000002;
 CONST_3 = $000004;

Procedure SpinSmt(Flag : Integer);

SpinSmt(CONST_2 Or CONST_3)

Как мне определить не перечисляя варианты, какие константы были вызваны?
Типа:

If CONST_1 In [Parameters] Then DoSomething;
If CONST_2 In [Parameters] Then DoSomething;
If CONST_3 In [Parameters] Then DoSomething;

[Пепел Феникса]

if (Flag and CONSR_1)<>0 then //CONST_1 установленна.

[Alex Cones]

Спасибо!

Не нужно зря цитировать предыдущее сообщение! Это - флуд.
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[Alex Cones]

Procedure SetButtonImage(Index : Integer; Image : Integer; Flag : Integer); StdCall; Export;
 Begin
  If (BTN_IMAGE_NORMAL  And Flag) <> 0 Then Warehouse.Button[Index].ImageN := Image;
  If (BTN_IMAGE_HOVER   And Flag) <> 0 Then Warehouse.Button[Index].ImageH := Image;
  If (BTN_IMAGE_PRESSED And Flag) <> 0 Then Warehouse.Button[Index].ImageP := Image;
 End;

Вызываю:

SetButtonImage(Button1, LoadTexture('BN.bmp'), BTN_IMAGE_NORMAL);

И нифига - не меняется Warehouse.Button[Index].ImageN

UPD________________________________ ___
Вот почему, когда напишешь на форуме, тут же находишь решение, хотя до этого часа два просидишь?

Проблема в том, что константы описал с нуля. Сместил константы на единицу и все заработало, что неудивительно - 0 And Number всегда 0.