Discussion :

[der§en]

Bonjour,

Je cherche a faire tenir des informations d'un record dans un simple WORD sans succès, a chaque fois, le Sizeof me renvoi 5 la ou j’attendais un 2 !

J'ai oublié un truc ou bien c'est impossible ?

Voila les 2 versions testés de mon record.

Version 1:

Code :

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

1
2
3
4
5
6
7
TZone1 = packed record
    Altitude: 0..255;  // 8 bits
    Biomes: 0..15;     // 4 bits
    Riviere: 0..1;     // 1 bit
    Mortel: 0..1;      // 1 bit
    Inconnu: 0..3;     // 2 bits
  end;

Version 2 :

Code :

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

1
2
3
4
5
6
7
8
9
TZone2 = packed record
    case Word of
      0: (Data: Word);      // 16 bits
      1: (Altitude: 0..255; //  8 bits
          Biomes: 0..15;    //  4 bits
          Riviere: 0..1;    //  1 bit
          Mortel: 0..1;     //  1 bit
          Inconnu: 0..3);   //  2 bits
  end;

Merci de vos retours.

[ShaiLeTroll]

Delphi gère au minimum un Byte par champ, reproduit une strucure de type C avec des champs de bit possible doit se faire manuellement en Delphi à coup de SHR SHL ...

Voir ce sujet : https://www.developpez.net/forums/d2...p-vers-delphi/

[tourlourou]

Bonjour,
Peut-être un helper de Word permettrait-il d'émuler ce type ?
Ou un Record avec des méthodes ?

[Paul TOTH]

j'ai posté un exemple il n'y a pas très longtemps

https://www.developpez.net/forums/d2...p-vers-delphi/

[der§en]

Merci de vos retours.

J'ai finalement opté pour cette approche :

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
26
27
28
29
30
31
32
33
34
35
36
  TZone3 = record
  private
    FData: Word;
    function  GetValue(const aIndex: Integer): Word; inline;
    procedure SetValue(const aIndex: Integer; const aValue: Word); inline;
  public
    property Altitude: Word index $0008 read GetValue write SetValue; // 8 bits, offset 0
    property Biomes:   Word index $0804 read GetValue write SetValue; // 4 bits, offset 8
    property Riviere:  Word index $0C01 read GetValue write SetValue; // 1 bits, offset 12
    property Mortel:   Word index $0D01 read GetValue write SetValue; // 1 bits, offset 13
    property Inconnu:  Word index $0E02 read GetValue write SetValue; // 2 bits, offset 14
  end;
 
function TZone3.GetValue(const aIndex: Integer): Word;
var
  Offset: Word;
  Mask: Word;
begin
  Offset := aIndex shr 8;
  Mask   := (1 shl (aIndex and $FF)) - 1;
 
  Result := (FData shr Offset) and Mask;
end;
 
procedure TZone3.SetValue(const aIndex: Integer; const aValue: Word);
var
  Offset: Word;
  Mask: Word;
begin
  Offset := aIndex shr 8;
  Mask   := (1 shl (aIndex and $FF)) - 1;
 
  Assert(aValue <= Mask);
 
  FData := (FData and (not (Mask shl Offset))) or (aValue shl Offset);
end;