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

Question

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

Answer 1

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

Answer 2

var
  R: Word;
begin
  R := wVBoardStatus[0] and MASK_BIT(1);
  if R <> 0 then R := 1;
  m_check1.SetCheck(R);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

#define MASK_BIT(bit) (1 << (bit))
这种在Dephi中定义不了你可以定义一个过程来实现它的功能function MASK_BIT(ABit: Byte): Byte;
begin
  Result := 1 shl ABit;
end;

Answer 4

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