Delphi 一种简单的二进制校验方法,适用于简单的权限管理或开关控制

var keyword:Word;//校验变量


procedure TFormMain.FormShow(Sender: TObject);
begin
keyword:=0;// 0000 0000 0000 0000  初始化校验变量为0
end;


procedure TFormMain.btn1Click(Sender: TObject);//点击button1
begin
//打开form1  //form1 校验位  0001
keyword:=keyword or 1    //keyword=0000 0000 0000 0001
jiaoyan;//调用检验关闭 过程
end;


procedure TFormMain.btn2Click(Sender: TObject);/点击button2
begin
//打开form2  //form2 校验位  0010
keyword:=keyword or 2    //keyword=0000 0000 0000 0010
jiaoyan;//调用检验关闭 过程
end;


procedure TFormMain.btn3Click(Sender: TObject);/点击button3
begin
//打开form3  //form3 校验位  0100
keyword:=keyword or 4    //keyword=0000 0000 0000 0100
jiaoyan;//调用检验关闭 过程
end;


{如果三个form全部打开的话就是 keyword=0000 0000 0000 0111 }