bit <---> word

[DGL-luke]

// ich werf hier nochmal meine vorschläge in den raum...

ginge das nicht auch so per Zeigerarithmetik bzw.Lookup-Tabelle?

Delphi-Quellcode:

// word to bit
var P:Pointer;

P := @SomeWord;
for i := 0 to 15 do
  begin
   bits[i] := boolean(P);
   Inc(P);
  end;

//andersrum:
//das hier sind die wertigkeiten, evtl. kommts noch auf LSA/MSA first an, muss man sehen, wie das im word liegt.
const Values = array[0..15] of integer =
({....}32,16,4,2,1);

for i := 0 to 15 do
 begin
  word := word + Values(i);
 end;