Mein Gedanken für die binäre Suche war, das man nicht alle Bits zweimal angucken muss. Der Aufwand für einen Schleifendurchlauf ist vielleicht
etwas zu hoch.
...
Wenn ich es einsetzen müsste, würde ich wohl den Vorschlag von Amateurprofi wählen: keine Gleitkommazahlen und ohne Umwege.
Aber kein pures Delphi/Pascal 
Wahrscheinlich hast Du nicht genau hingesehen, aber bei meinem Code werden die Bits nur einmal angesehen (bis auf das höchste, aber das könnte man auch noch wegoptimieren).
Im Übrigen macht Amateurprofis NeededLength auch nichts wesentlich anderes, und ich bezweifele, ob ein Funktionsaufruf und langsames
bsr schneller sind. Weiter kann man natürlich auch die finale Schleife rückwarts durchlaufen, hier also der kombinierte Code in Pur-Pascal:
Delphi-Quellcode:
function IntToBin(x: cardinal):
string;
var
i,n: integer;
m: cardinal;
begin
if x=0
then Result := '
0'
else begin
{Teil 1: Bestimme höchstes gesetztes Bit}
m := cardinal($80000000);
n := 32;
while m
and x = 0
do begin
dec(n);
m := m
shr 1;
end;
{Teil 2: Allokieren und Bits abarbeiten, n>0 da x<>0!}
Setlength(Result,n);
for i:=n
downto 1
do begin
Result[i] := Chr(Ord('
0')
or (x
and 1));
x := x
shr 1;
end;
end;
end;