Binärdarstellung einer Zahl mit einer einzigen Stringallokation

[Amateurprofi]

warum einfach und schnell wenns auch kompliziert und langsam geht?

Delphi-Quellcode:

FUNCTION IntToBin(v:cardinal):string;
FUNCTION NeededLength(v:cardinal):integer;
asm
      bsr   eax,eax
      jnz   @1
      xor   eax,eax
@1:   add   eax,1
end;
var i:integer;
begin
   i:=NeededLength(v);
   SetLength(result,i);
   repeat
      result[i]:=Chr(Ord('0') or v and 1);
      dec(i);
      v:=v shr 1;
   until i=0;
end;