function ByteToBin(value: byte): string;
const
v: byte = 1;
var
i: integer;
begin
for i:= 7 downto 0 do
//利用1左移和byte值相与获得为1的位
if ( (v shl i) and value <> 0 ) then
result := result + '1 '
else
result := result + '0 ';
end;