Discussion :

[qi130]

Tout est dans le titre...

J'ai un tableau de 8 booléens et je souhaite que ma variable en Byte prenne la valeur correspondante.

J'ai essayé comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
     tt:=TBits.Create;
     tt.Size:=8;
     for i:=1 to 8 do
        tt.Bits[i-1]:=TCheckBox(FindComponent('ChkBck'+IntToStr(i))).Checked;
     Move(tt,Option,1);
     tt.Free;

mais avec aucun checkbox coché, Option ne vaut pas 0

[Cl@udius]

Salut

Et comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var
  I: Integer;
begin
  Option := 0;
  for I := 0 to 7 do
    if TCheckBox(FindComponent('ChkBck'+IntToStr(I + 1))).Checked then
      Option := Option + 1 shl I;
end;

@+ Claudius

[Andnotor]

Trop rapide ce Claudius

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
  Option, i :byte;
begin
  Option := 0;
  for i :=1 to 8 do
    inc(Option, integer(TCheckBox(FindComponent('ChkBck'+IntToStr(i))).Checked) shl (i-1));
end;

Move ne peut pas fonctionner. Tu copies un objet (et non son contenu) dans un byte.

[qi130]

Et comme ça ?

Comme ça, ça marche ! Mais il me faut un Integer

Et pour l'opération inverse ?

[Cl@udius]

Mais il me faut un Integer

Pourquoi un integer, tu cherches bien à alimenter un byte avec tes 8 CheckBox ?

[qi130]

Certes mon ami, mais:
- j'avais pris un byte pour coller aux 8 bits déclarés pour le TBits
- la somme des puissances de 2 quand tout est coché fait passer le byte à 0

[Cl@udius]

- la somme des puissances de 2 quand tout est coché fait passer le byte à 0

Je viens de faire un test et j'obtiens bien des valeurs comprises entre 0 et 255 !

[Cl@udius]

Et pour l'opération inverse ?

J'obtiens ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
var
  I: Byte;
  bChecked: Boolean;
begin
  for I := 0 to 7 do
  begin
    bChecked := (Option and (1 shl I) > 0);
    TCheckBox(FindComponent('CheckBox'+IntToStr(I + 1))).Checked := bChecked;
  end;
end;