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.
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 :
qui transfère le contenu de S1 dans B1 ;
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;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager