Битовые операции

Боже, лет 10 паскаль не трогал, но должно быть так

if a and (1 shl <номер бита>) then установлен

Ну не совсем так, ты говоришь о проверке одного бита, а мне бы сразу все. Типа:

var
 Flags: UINT;
begin
 if Flags and MB_ICONINFORMATION then

Но ловлю

PointAbstracts.pas(148674,12) Error: Incompatible types: got «LongWord» expected «Boolean»

Протупил, содержимое флага обычным И проверяется

if SOME_DWORD and MB_ICONINFORMATION then ...

А если в скобки взять?

Сейчас проверю в таком виде - Boolean(Flags and MB_ICONINFORMATION)

По логике для проверки сразу нескольких тебе надо ИЛИ использовать для набора флагов, и И для проверки.

1011 and ( 0010 or 0001 ) => 1011 and 0011

if ((Flags and MB_ICONINFORMATION)<>0) then

Как-то так должно быть.

(Flags and MB_ICONINFORMATION)>0, явно надо, в си бы прокатило

В целом, работает и твой вариант и мой

Boolean(Flags and MB_ICONINFORMATION)

В общем, всем спасибо. Давно не игрался с флагами и уже даже забыл про них =)

В общем случае (флаг из более чем одного бита), надо проверять

(value and flag) = flag

В паскале, условные операторы принимают булевый тип(0 и 1), любое выражение к нему не приводится, как в ц-подобных(0 и не-0).
Насильное приведение через Boolean() наверное не очень идеологически верно и может где-то вызвать неожиданное поведение.

Вот есть DWORD
Boolean(Flags and MB_ICONINFORMATION)

Собственно говоря, как раз в твоем случае такое приведение не даст ожидаемого тобой результата. Проверь на подобном коде:

var
    x,y:dword;
begin
    x:=1;
    for y:=0 to 3 do begin 
        writeln('x=',x,' b(x)=',boolean(x));
        x:=x shl 8;
    end;
end.

Ну таки работает же и судя по отладчику, то вполне так как надо

А по идее не должно)
В паскале же нет правила, что выражение большее нуля является истинным. Boolean(dword) может запросто вернуть первый бит в каких-то реализациях.

Ну ладно, не буду испытывать судьбу)) Оставляю такой вариант

if (Flags and MB_ICONINFORMATION) <> 0 then

Ты меня заинтриговал. Накотил фрипаскаль и посмотрел результат:

$> fpc hell.pas
Free Pascal Compiler version 2.6.4 [2018/04/06] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling hell.pas
Linking hell
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
8 lines compiled, 0.1 sec 
$> ./hell 
x=1 b(x)=TRUE
x=256 b(x)=FALSE
x=65536 b(x)=FALSE
x=16777216 b(x)=FALSE

delphi

ана тебя сожрет!

Спасибо, что не поленились =)

Чёйта? =)

Нужен LongBool.