reinterpret_cast d'un TSmallPoint vers un int
Je m'interroge sur le cast du C++
J'ai lu
Cours C - II-B-12. Conversion de type (\cast" operator)
FAQ C++ - Comment effectuer une conversion de type explicite (cast) ?
Je me suis aperçu d'une complexité syntaxique du C++ lors de l'utilisation TSmallPoint est la méthode Delphi équivalent à la Macro MAKEPOINTS pour utiliser une message type WM_MOUSEMOVE, WM_LBUTTONUP ... via SendMessage avec le TSmallPoint dans lParam
Voici un code d'exemple en C++
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
|
{
TSmallPoint SP;
SP.x = 1;
SP.y = 1;
int i ;
Perform(WM_MOUSEMOVE, 0, *((int*)(&SP))); // C'est Effrayant de complexité !
// i = SP; // Ne Compile pas ! Normal !
// i = (int)SP; // Ne Compile pas ! Pourquoi ?
// i = *((int*)(&SP)); // Compile et Fonctione ! Mais c'est illisible !
// i = reinterpret_cast<int>(SP); // Ne Compile pas ! Pourquoi ?
i = reinterpret_cast<int&>(SP); // Compile et Fonctione ! Mais c'est long et pourquoi & ? Cela revient à écrire la ligne au dessus !
ShowMessage(i);
TPoint P;
P.x = 1;
P.y = 1;
double D;
// D = (Double)P; // Ne Compile pas ! Pourquoi ?
D = *((double*)(&P)); // Compile et Fonctione ! Mais c'est illisible !
ShowMessage(D);
i = D + 1; // C++ converti le double en int sans broncher !
ShowMessage(i);
} |
Voici l'équivalent Delphi !
Alors que Delphi est nettement plus strict au niveau des conversions entre entier et flottant ou la conversion vers une chaine, il accepte des transtypages sur des types de même longueur que n'accepte pas le C++ !
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
| var
SP: TSmallPoint;
I: Integer;
D: Double;
P: TPoint;
begin
SP.x := 1;
SP.y := 1;
Perform(WM_MOUSEMOVE, 0, Integer(SP)); // Simple et Efficace
I := Integer(SP);
ShowMessage(IntToStr(I));
P.x := 1;
P.y := 1;
// D := Double(SP); // E2089 Transtypage Incorrect - normal Double est sur 8 octets et TSmallPoint sur 4
D := Double(P); // Même Taille ! Donc OK !
ShowMessage(FloatToStr(D));
// i := D + 1; // E2010 Types incompatibles - Double et Integer c'est pas la même chose !
i := Trunc(D + 1); // Trunc, Floor, Ceil, on doit fournir une méthode de conversion explicite !
ShowMessage(IntToStr(I));
end; |
Je termine tout de même par une question :
Existe-t-il quelque chose de plus concis que reinterpret_cast<int&>(SP) ou i = *((int*)(&SP)) ?
