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;
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.