[Delphi]黑白BMP压缩（BitSet压缩法）[建议学习]

一指温柔

持开源~！感谢分享

year1970

感谢分享

renhe2018

给力，非常给力。

亿万

支持开源~！感谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

黑马科技

阿三大王谁打的

wuqingg

YYDS~!!!!!!!!!!!

1355301564

感谢分享啊啊

一指温柔

共同努力，共同进步

嫂子

知识补充

Byte 如何获取到每一个Bit的值（也就是二进制）

解答：

ByteValue and (1 shl i)

1左移i   然后和 Byte值  位于  得到的值 不等于0 则表示1 否则表示0

得到的就是二进制（每一个Bit的值）

比如
Byte=165  二进制是 10100101

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
Byte	字节型
i	整数型

Byte ＝ 165
计次循环首 (8, i)
判断 (位与 (Byte, 左移 (1, i － 1)) ≠ 0)
编辑框1.加入文本 (“1”)
编辑框1.加入文本 (“0”)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 Byte, 字节型<br /> .局部变量 i, 整数型<br /> <br /> Byte ＝ 165<br /> <br /> .计次循环首 (8, i)<br />     .判断开始 (位与 (Byte, 左移 (1, i － 1)) ≠ 0)<br />         编辑框1.加入文本 (“1”)<br />     .默认<br />         编辑框1.加入文本 (“0”)<br />     .判断结束<br /> <br /> .计次循环尾 ()