Załóżmy, że jest tablica bajtów (bit 0..1) lub logiczna (bit ustawiony lub nie). W jaki sposób złożyć z tych bitów dane?
Np. tablica(1, 0, 0) --> dane(4)
Ops, zapomniałem - w Delphi.
Załóżmy, że jest tablica bajtów (bit 0..1) lub logiczna (bit ustawiony lub nie). W jaki sposób złożyć z tych bitów dane?
Np. tablica(1, 0, 0) --> dane(4)
Ops, zapomniałem - w Delphi.
liczba:=0
for i:= ... to ... do
liczba:=liczba*2+dane[i]
Hm, dla 0..9 (0000..1001) daje dobry wynik, >= 10 (1010) już nie:
var
I, X: Integer;
X := 0;
for I := 0 to High(D) do
X := (X * 2) + D[I]
;
Caption := IntToStr(X);
:?