Re: Skybuck presents BitLength

OooohhOhhhh

Little logic error, zero requires ofcourse one bit as well hihihihihihi.

Fixed code:

function BitLength( Value : longword ) : byte;
begin
 result := 0;

 while (Value > 0) do
 begin
  result := result + 1;
  Value := Value shr 1;
 end;

 if result = 0 then
 begin
  result := 1;
 end;
end;

Bye,
  Skybuck.