在线急救！在DELPHI中如何表示C语言 #define MASK_BIT(bit) (1 << (bit))

[wukang]

VC++例：
m_check1.SetCheck (((wVBoardStatus[0] & MASK_BIT (1)) == 0)? 0 : 1);
在DELPHI中如何表示？

[nhdj]

他们说的好像很有道理，应该可以啊，up

[wukang]

搞定

[wukang]

感谢DWGZ() 和 lxpbuaa(桂枝香在故国晚秋)
我以前是用VC开发的，结果公司最近要统一语言，要学什么DELPHI，这可害苦我等了

[IORILI]

if wVBoardStatus[0]= MASK_BIT (1)) then
m_check1.value:=true else m_Check1.value:=false;

[lxpbuaa]

var
R: Word;
begin
R := wVBoardStatus[0] and MASK_BIT(1);
if R <> 0 then R := 1;
m_check1.SetCheck(R);
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[wukang]

MASK_BIT(bit)如何定义

[DWGZ]

#define MASK_BIT(bit) (1 << (bit))
这种在Dephi中定义不了你可以定义一个过程来实现它的功能

function MASK_BIT(ABit: Byte): Byte;
begin
Result := 1 shl ABit;
end;

[wukang]

不会这么难吧，试试先