Transtypage single en TBytes

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.

En pascal standard cela peut donner cela :

Code:

---

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 ;