delphi怎样去实现位或运算。

Question

有一段vc代码：dt_setevtmsk(iDtiBoardHandle,DTG_E1ERREVT,DEEC_RLOS|DEEC_RUA1|DEEC_FSERR|DEEC_MFSERR,DTA_SETMSK)
我想把这个函数翻成Delphi的，怎样实现DEEC_RLOS|DEEC_RUA1|DEEC_FSERR|DEEC_MFSERR。

Answer 1

DEEC_RLOS，DEEC_RUA1，DEEC_FSERR，DEEC_MFSERR这些都是常量。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := 6 or 7 or 8 or 9;
  Edit1.Text := IntToStr(I);
end;//Result: 15

Answer 3

(iDtiBoardHandle, DTG_E1ERREVT, 
 DEEC_RLOS or DEEC_RUA1 or DEEC_FSERR or DEEC_MFSERR, DTA_SETMSK);

Answer 4

delphi 里面一般都用 加号DEEC_RLOS + DEEC_RUA1 + DEEC_FSERR + DEEC_MFSERR

Answer 5

有OR，And，Not，Xor，SHL，SHR的运算符，自己看着办http://lysoft.7u7.net

Answer 6

OR是按位或 XOR是按位异或－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－　　　　　　　　　　　　　　欢迎访问 http://www.coderpub.com 技术论坛

Answer 7

OR，And，Not，Xor，SHL，SHR
或   与   非   异或 按位左移  按位右移