Champ de bits en delphi

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

Code:

---

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,

Code:

---

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

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.

Citation:

---

Envoyé par tourlourou

Code:

---

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:

---

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

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:

---

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:

---

1 2	private: Flags: TMesFlagRec;

---

Citation:

---

Envoyé par Paul TOTH

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:

---

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:

---

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

---

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"

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

Citation:

---

Envoyé par ShaiLeTroll

"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 :)

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