bit <---> word

[Dax]

Ach, ja, ich hab IntToBit vergessen

Delphi-Quellcode:

function IntToBit(Int: Integer): TBitArray {array of Boolean};
var i: Integer;
begin
  SetLength(Result, 32);
  for i := 0 to 31 do
    Result[i] := (Int and (1 shl i)) <> 0;
end;