Traduction en Delphi d'une structure

**skywaukers** · 13/06/2007, 23h49

bonjour,

comment écrire ceci en Delphi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
typedef struct {
  int ObjType;			// object type
  int AddrHigh;			// object address - high byte
  int AddrLow;			// object address - low byte
  int Index;			// index address for object arrays
  union {
    long int I;			// object value - integer
    double D;			// object value - double/single
  } Val;
  int Exponent;			// object value - exponent
  int BitNumber;		// specific bit number
} KN_OBJ;

j'ai essayé avec Union, mais je n'y parviens pas.

Merci,
Dany

**droggo** · 14/06/2007, 00h02

Hao,

Il faut faire un record avec des champs variables:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  montruc = record
       ObjType : integer;			// object type
       ....
       BitNumber : integer;
       case bo : boolean of { par exemple }
         false : (I : integer);
         true : (D : double) )
        { end; du case . OUPS, il ne le faut pas !! }
  end ; { du record }

Les champs variables doivent absolument être les derniers du record !!

Dans ta variable de type montruc, tu mets le booléen bo à true ou false, ça t'aidera pour savoir quel champ tu utilises pour cette variable.

(Ce n'est pas obligatoire, on aurait pu déclarer

Code :

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

1
2
3
...
       case boolean of { par exemple }
...

et ne pas disposer de champ permettant au programme de savoir quel champ variable utiliser, c'est envisageable en étant très attentif sur l'emploi de ces champs.

)

Tout ça est du Pascal basique.

**Paul TOTH** · 14/06/2007, 00h10

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
 
type
 Val=record
  case byte of // le type importe peu, il sert juste à l'énumération ci-dessous
    0: (I:integer);
    1: (D:double);
  end;
 // pas de end ici !
 
 KN_OBJ=record
  ObjType:integer;
  AddrHigh:integer;
  AddrLow:integer;
  Index:integer;
  union:Val;
  Exponent:integer;
  BitNumber:integer;
 end;
 
// NB: on est ici obligé de nommer l'union car elle n'est pas ne fin de record...
// sinon on aurait pu écrire
 
 KN_OBJ=record
  ObjType:integer;
  AddrHigh:integer;
  AddrLow:integer;
  Index:integer;
  case byte of
    0: (I:integer);
    1: (D:double);
  end;
// pas de end; ici !

voir aussi mon site

**CapJack** · 14/06/2007, 00h12

Comme dit droggo, le case <truc> of est un fondamental du langage Pascal.

Ceci étant, en C, un champ union possède un nom (ici, Val). Il faut en tenir compte pour ne pas trop se prendre la tête dans le reste du code (de façon à ce que les affectations/références restent les mêmes). Si on utilise directement le "case of", ce nom disparaît.

En outre, il y a un problème 16 bits/32 bits : l'utilisation de long int semblerait dire qu'on est dans un ancien code 16 bits, mais il peut aussi d'agir d'un résidu.

Je proposerais donc plutôt ceci, pour conserver la syntaxe originale :

Si le code original est pour un compilateur C 32 bits :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type K_OBJ = record
              ObjType   : Integer; // object type
              AddrHigh  : Integer; // object address - high byte
              AddrLow   : Integer; // object address - low byte
              Index     : Integer; // index address for object arrays
              Val : record
                     case Integer of
                      0 : (I : LongInt); // object value - integer
                      1 : (D : Double);  // object value - double/single
                    end;
              Exponent  : Integer; // object value - exponent
              BitNumber : Integer;// specific bit number
             end;

Si le code original est pour un (vieux) compilateur C 16 bits :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type K_OBJ = record
              ObjType   : SmallInt; // object type
              AddrHigh  : SmallInt; // object address - high byte
              AddrLow   : SmallInt; // object address - low byte
              Index     : SmallInt; // index address for object arrays
              Val : record
                     case Integer of
                      0 : (I : LongInt); // object value - integer
                      1 : (D : Double);  // object value - double/single
                    end;
              Exponent  : SmallInt; // object value - exponent
              BitNumber : SmallInt;// specific bit number
             end;