如何判断一个字节的前四为是‘0111’? 如何判断一个字节的前四为是‘0111’? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if (yourbyte and $70=$70) then var b,c:bytebegin c:=b shr 4 //b八位 01111111 shr 4 右移4位 =00000111 if c:=7 then 前4位为0111end; var a: Byteif ((a and $70)=$70) thenshowmessage('是'); if ((yourbyte shr 4)= 7) then .... 如何将两张图片合并成一张 cxGrid中输入中文的问题 如何得到其他程序的Richedit中的RTF数据? 数字转换成日期 求TDBChart控件的用法?(用代码来控制) 关于PageControl的问题,在线等待! 请问高手---------怎样搜索代理服务器? 怎样让TMemo不能聚焦?(不能用enable=false,因为其中放入了要操作的控件) 如何向sql server数据库中存取word,excel,mpp等文件? delphi如何让一个过程处于激活状态 请问如何用adotable实现缓存更新? ado数据库更新的问题。
begin
c:=b shr 4 //b八位 01111111 shr 4 右移4位 =00000111
if c:=7 then
前4位为0111
end;
a: Byteif ((a and $70)=$70) then
showmessage('是');