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