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

最新推荐文章于 2023-12-02 12:44:49 发布

三樱椒

最新推荐文章于 2023-12-02 12:44:49 发布

阅读量385

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi技术文章标签： delphi 二进制管理 word

本文链接：https://blog.youkuaiyun.com/uhjiok123/article/details/52047938

本文介绍了一种使用Delphi进行二进制校验的方法，适用于简单的权限管理和开关控制。通过`jiaoyan2`函数，传入校验位和待检测变量，根据二进制与运算结果判断是否执行特定动作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 }

//以下集中校验,实现如果 form1已打开(校验位为1)，则去关闭它
procedure ji