Discussion :

[Cbonniot]

Bonjour

Comme chacun le sait un single est fait de 4 bytes et donc j'aimerais savoir si il existe une fonction permettant de transtyper un single en TBytes ou en tableau de 4 bytes.

Merci d'avance de votre réponse.

[ALWEBER]

En pascal standard cela peut donner cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TBytes = array[0..3] of Byte;
var
  B1 : TBYTES ;
  Pb1 : ^TBYTES ;
  S1 : Single ;
begin
  Pb1 := @S1 ;
  B1[0] := Pb1^[0] ;
  B1[1] := Pb1^[1] ;
  B1[2] := Pb1^[2] ;
  B1[3] := Pb1^[3] ;
end;

qui transfère le contenu de S1 dans B1 ;