Pascal实现Byte型转BIN字符串格式

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;