Binärdarstellung einer Zahl mit einer einzigen Stringallokation

[p80286]

wie wäre es hiermit?

Delphi-Quellcode:

fuction GetLengthofBinString(z:longword):integer;
  i : integer;
begin
  result:=0;
  for i:=0 to 31 do
    if (z and (1 shl i))<>0 then result:=i+1;
end;

Gruß
K-H