Traduction en Delphi d'une structure

Version imprimable

bonjour,

comment écrire ceci en Delphi :

Code:

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

Édité

Hao,

Il faut faire un record avec des champs variables:
Code:

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 !! :D

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:

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. :D)

Tout ça est du Pascal basique.

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
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

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:

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:

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;

Edit : tothpaul, tu confonds nom de type et nom de variable. ;)

13/06/2007, 23h17
Paul TOTH

Citation:

Envoyé par CapJack

Edit : tothpaul, tu confonds nom de type et nom de variable. ;)

j'ai toujours détesté le C :D
13/06/2007, 23h20
CapJack

Je te comprends... :lol:
14/06/2007, 00h07
skywaukers

bonsoir,

merci à tous et désolé de vous avoir dé"rangé pour si peu.

@++
Dany

ps : en plus j'ai mis union, je voulais dire case, vraiment désolé