摘要： Function Getlen(P:longint):longint;var i:longint; begin getlen:=0; for i:=1 to 31 do begin if p and 1=1 then getlen:=i; p:=p shr 1; end;end;Function GetBit(Num,bit:longint):boolean; begin if (num and (1 shl(bit-1)))=0 then exit(false) else exit(true);end;Procedure changeBit(var num:lo... 阅读全文