bit <---> word

[TeronG]

Hi
ich wollte/musste mal (16) bits in ein Word umrechnen und umgekehrt .. hab mir auch was zusammengebastelt, daß recht gut funtzt ..
Jetzt wollt ich eigentlich nur noch wissen, ob es in Delphi evtl. schon was vorgefertigtes/besseres gegeben hätte bzw. giebt?


Mein Codeschnipsel ^^

Delphi-Quellcode:

procedure WordToBit(eingang:Word;var bit: array of boolean);
var
  I : Integer;
begin
  for i := 0 to 15 do bit[i] := ((eingang div trunc(Power(2,i)))mod 2 > 0);
end;

procedure BitToWord(bit : array of boolean;var ausgang : Word);
var
  i : integer;
begin
  ausgang := 0;
  for I := 0 to 15 do if bit[i] then ausgang := ausgang + trunc(power(2,i));
end;

btw: Warum zum Geier kann ich in der Procedurendeklaration nicht array[0..15] of machen