bit <---> word

[TeronG]

Dank himitsu's Post ist mir ne "bessere" Version von meinem 'WordToBit' eingefallen:

Delphi-Quellcode:

type TBitArray = array[0..15] of boolean;

...

function WordToBit(Eingang:Word): TBitArray;
var
  i : integer;
begin
  for i := 0 to 15 do Result[i] := (Eingang shr i) and 1 <> 0;
end;