der zahl-in-bits-umwandler

[markusj]

Hi fast-Nachbar *gg*,

Um ehrlich zu sein: der Code hat Null Nutzwert ... es gibt deutlich effektivere Varianten, such mal nach Bits, zerlegen und Byte ... afair kommt der Code von negaH und ist a) kürzer und b) schneller:
Ich hätte ja gesagt, lass uns mal bei nem Bier darüber reden, aber naja, ...

Ich finds gerade net, also der Auszug aus meinem Projekt:
type TBits = array[1..8] of boolean;

Delphi-Quellcode:

function ByteToBits(input : byte) : TBits;
  var i : byte;
  begin
  i := 1;
  while input <> 0 do
   begin
   result[i] := odd(input);
   inc(i);
   input := input shr 1;
   end;
  while i <= 8 do
   begin
   result[i] := false;
   inc(i);
   end;
  end;

WICHTIG: TBits verträgt sich nicht mit dem TBits aus der VCL!

mfG
Markus

PS: Du kannst das ganze durch ändern der Variablen und Schleifendurchläufe auch auf Zahlen > Byte anwenden