Discussion :

[Benoit_T]

Bonjour je dois porter un bout de code C++ en delphi, il contient entre autre un champ de bits:

Code :

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

1
2
3
4
private:
    bool _agcb:1;
    bool _alb:1;
    unsigned int _gap:30;

ce sont les champs d'une classe.

J'ai consulté le tuto concernant les énumérations (qui traite aussi un peu des bit fields ici : http://laurent-dardenne.developpez.c...numbuilder/#L5, cependant, l'exemple étant court, je n'ai pas bien saisi la démarche. Quelle approche dois-je adopter pour réussir à mimer au mieux le comportement de mon code C++ ?

Cordialement,

[tourlourou]

Code :

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

1
2
3
4
private
    _agcb: LongBool = True; // je crois que 1=True ?
    _alb: LongBool = True;
    _gap: Cardinal = 30;

mais je ne crois pas qu'on puisse initialiser les champs, seulement les propriétés, => à faire au Create

[Aka Guymelef]

Bonjour.

Effectivement l'initialisation de champ n'est pas permise au niveau de la partie interface (à l'exception des constantes et des variables globales) il faut redéfinir le constructeur de la classe pour faire ça.

[Paul TOTH]

Code :

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

1
2
3
4
private
    _agcb: LongBool = True; // je crois que 1=True ?
    _alb: LongBool = True;
    _gap: Cardinal = 30;

mais je ne crois pas qu'on puisse initialiser les champs, seulement les propriétés, => à faire au Create

j'aurais fait ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
type
  TMonObjet = class
  private
    FFlags : Cardinal;
    function Get_agcb: Boolean;
    procedure Set_agcb(Value: Boolean);
    ...
    property _agcb : Boolean read Get_agcb write Set_agcb;
    property _alb: Boolean read Get_alb write Set_alb;
    property _gap : Cardinal read Get_gap write Set_gap;
  end;
 
function TMonObjet.Get_agcb: Boolean;
begin
  Result := (FFlags and 1) > 0;
end;
 
procedure Set_agcb(Value: Boolean);
begin
  if Value  then 
   FFlags :=  FFlags or 1
  else
   FFlags := FFlags and (not 1);
end;

je vous laisse imaginer les autres fonctions

PS: le ":1" indique le nombre de bits, pas une valeur par défaut

[ShaiLeTroll]

voir le sujet Encore un problème de traduction C++ delphi

Par Enumération ça donnerait, pour un Delphi Win32, en mémoire, cela donnerait la même chose, ... pour .NET, je ne peux pas me prononcer ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type
  TMesFlags = (_agcb, _alb);
  TMesFlagsSet = set of TMesFlags;
 
  TMesFlagRec = record
    case Boolean of
      True: 
        (
          Flags: TMesFlagsSet;
        );
       False:
         (
           Spare: Cardinal;  
         );
  end;

Code :

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

1
2
private:
   Flags: TMesFlagRec;

je vous laisse imaginer les autres fonctions

PS: le ":1" indique le nombre de bits, pas une valeur par défaut

Euh, le "1" c'est 1, si l'on veut accéder à _alb, ça donnerait quoi justement ? moi je dirais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function TMonObjet.Get_alb: Boolean;
begin
  Result := (FFlags and 2) > 0;
end;
 
procedure Set_alb(Value: Boolean);
begin
  if Value  then 
   FFlags :=  FFlags or 2
  else
   FFlags := FFlags and (not 2);
end;

le not 1 et not 2, va travailler sur quelle taille ? byte, word, long ???
utiliser des constantes typées serait plus prudent

Code :

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

1
2
3
4
5
const
  _agcb : Cardinal  = 1; // 00000000 00000000 00000000 00000001b 
  _alb : Cardinal   = 2; // 00000000 00000000 00000000 00000010b
  _autre : Cardinal = 4; // 00000000 00000000 00000000 00000100b 
  _a2  : Cardinal   = 8; // 00000000 00000000 00000000 00001000b

[Paul TOTH]

il faut faire attention à l'ordre des bits

on a 32 bits, le premier pour _agcb, le deuxième pour _alb et les 30 restants pour _gap.

à priori c'est bon

donc le getter de _gap c'est "FFlags shr 2" et le setter c'est "(Value shl 2) or FFlags and 3"

[ShaiLeTroll]

"shr 1" tu veux dire ?
3 ? ça c'est quand les deux sont à true ? non ?
Normalement avec les constantes cela fonctionne

[Paul TOTH]

"shr 1" tu veux dire ?
3 ? ça c'est quand les deux sont à true ? non ?
Normalement avec les constantes cela fonctionne

quand on lit la valeur de gap, on veux virer les 2 booleans, donc shr 2
quand on assigne gap, on garde 2 bits inchangés, donc 1 + 2

[Benoit_T]

Merci pour ces précisions qui m'ont été précieuses, je vais tester tout ça cet après-midi