bit <---> word

[TeronG]

hier meine ^^ (die versteh ich sogar !!)

Delphi-Quellcode:

function TForm1.BitToWord(bits:TBitArray):Word;
var
  i : Integer;
begin
  result := 0;
  for i := low(bits) to high(bits) do if bits[i] then result := result + (1 shl i);
end;

function TForm1.WordToBit(eingang:Word): TBitArray;
var
  m,i : integer;
begin
  for i := 15 downto 0 do begin
    m:= 1 shl i;
    if eingang >= m then begin
      result[i] := true;
      eingang := eingang-m;
    end else result[i] := false;
  end
end;

Dank shl ganz ohne power(2,y), trunc, div & mod !!