Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
24. Mai 2012
Wegen Speicher ... macht es doch so wie IntToStr oder Format?
ein array of Char als Puffer auf'm Stack,
dann einmal die Zeichen berechnen und den Puffer befüllen,
gleichzeitig werden die Bits automatisch gezählt
und zum Schluß ein SetString, wo nur einmal Speicher allociert wird.
:stupid:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
24. Mai 2012
Wobei BSR auch nicht so toll sein soll.
Zumindestens für 32 Bit war es so (64 weiß ich nicht), aber da gab es letzes Jahr einen Thread dazu, wo ich dieses BSR verwendete.
function GetLengthofBinString(z: LongWord): LongInt; inline:
function GetLengthOfBinString(Value: LongWord): LongInt;
begin
Result := 32;
while (Result >= 0) and (LongInt(Value) >= 0) do begin