Discussion :

[declencher]

Bonjour,

Comment sont codées les valeurs négatives dans delphi ?

J'ai des valeurs négatives dans mon appli sur 2 octets (SmallInt). Le truc c'est que je dois découper cette valeur en 2 fois 8 bits en utilisant le complément à 2. Pour découper ma valeur, j'applique des masques (and) et je fais des décalages de bits (shr). Mais voilà, il semblerait que ça ne fonctionne pas... ça marche parfaitement pour les valeurs positives, mais pas pour les valeurs négatives...

Une idée ?

[Fabrice ROUXEL 1]

Les nombres négatifs sont représentés au moyen du complément à 2.

Le type smallint codé sur 16 bits a une étendue de –32768 à +32767.

Code :

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

1
2
3
4
5
6
7
  Binaire                   |    Décimal
     ------------------------------------
 
      0000 0000 0000 0000   |  0
      0111 1111 1111 1111   |  + 32767
      1000 0000 0000 0000   |  - 32768
      1111 1111 1111 1111   |  - 1

Le type de la variable définit la taille et la signification des octets.
Remarque: Le bit le plus significatif de l'octet de poid fort est toujours à 1 pour un nombre négatif.

[declencher]

Bonjour,

C'est exactement ce que j'avais compris, et pourtant ça ne fonctionne pas :/
A la base ma valeur est un integer. Alors je fais monSmallInt := monInteger;

Donc ceci devrait être correct ?

Ensuite je fais :

Code :

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

1
2
3
4
      // Extraire l'octet de poid fort
      octetFort := (monSmallInt and $FF00) shr 8;
      // Extraire l'octet de poid faible
      octetFaible := monSmallInt and $FF;

Je ne vois pas ce qui coince... Avec les valeurs positives ça fonctionne très bien :/

[declencher]

La question c'est que je manipule des integers. Puis je dois les découper en 2 octets (un octet de poid fort et un octet de poid faible). Comme l'integer est codé sur 32 bits et non 16, je veux d'abord convertir ma valeur qui se code obligatoirement sur 16bit. Donc je fais comme indiqué plus haut... Mais ça ne marche pas

[Fabrice ROUXEL 1]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button12Click(Sender: TObject);
var
  I16: SmallInt;
  I32: Integer;
  LB8, HB8: Byte;
begin
 I32 := -32768;
 I16 := I32;
 showMessage(IntToStr(I16));
 LB8 := I16 and $FF   ;
 HB8 := (I16 and $FF00) shr 8;
 ShowMessage(IntToStr(LB8));  // -> 0
 ShowMessage(IntToStr(HB8));  // ->128
end;

Les résultats sont conformes

Code :

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

1
2
3
4
 
  -32768  |  1000 0000 0000 0000       |  I16  
 0        |            0000 0000       |  LB8
 +128     |  1000 0000                 |  HB8

Rappel
type Byte non signé 0-255
0 -> 0000 0000
128 -> 1000 0000
255 -> 1111 1111

[declencher]

Si j'ai bien compris ça confirme ma méthode. Je vais chercher du côté du périphérique qui doit mal interprété le complément à 2.