System.TExtended80Rec
Delphi
TExtended80Rec = packed record
C++
struct DECLSPEC_DRECORD TExtended80Rec
{
private:
#ifndef _WIN64
Extended aExtended80;
#else /* _WIN64 */
unsigned __int64 aExtended80Frac;
UInt16 aExtended80Exp;
#endif /* _WIN64 */
UInt8 __fastcall InternalGetBytes(unsigned Index);
UInt16 __fastcall InternalGetWords(unsigned Index);
void __fastcall InternalSetBytes(unsigned Index, const UInt8 Value);
void __fastcall InternalSetWords(unsigned Index, const UInt16 Value);
UInt8 __fastcall GetBytes(unsigned Index);
UInt16 __fastcall GetWords(unsigned Index);
unsigned __int64 __fastcall Get_Exp();
unsigned __int64 __fastcall GetExp();
unsigned __int64 __fastcall GetFrac();
bool __fastcall GetSign();
void __fastcall SetBytes(unsigned Index, const UInt8 Value);
void __fastcall SetWords(unsigned Index, const UInt16 Value);
void __fastcall Set_Exp(unsigned __int64 NewExp);
void __fastcall SetExp(unsigned __int64 NewExp);
void __fastcall SetFrac(unsigned __int64 NewFrac);
void __fastcall SetSign(bool NewSign);
public:
int __fastcall Exponent();
Extended __fastcall Fraction();
unsigned __int64 __fastcall Mantissa();
__property bool Sign = {read=GetSign, write=SetSign};
__property unsigned __int64 Exp = {read=GetExp, write=SetExp};
__property unsigned __int64 _Exp = {read=Get_Exp, write=Set_Exp};
__property unsigned __int64 Frac = {read=GetFrac, write=SetFrac};
TFloatSpecial __fastcall SpecialType();
void __fastcall BuildUp(const bool SignFlag, const unsigned __int64 Mantissa, const int Exponent);
static TExtended80Rec __fastcall _op_Explicit(Extended a);
__property UInt8 Bytes[unsigned Index] = {read=GetBytes, write=SetBytes};
__property UInt16 Words[unsigned Index] = {read=GetWords, write=SetWords};
};
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
record struct |
public | System.pas System.hpp |
System | System |
Description
Fournit la prise en charge pour la manipulation des valeurs à virgule flottante en précision étendue.
Un TExtended80Rec peut être utilisé pour effectuer des opérations de bas niveau sur une valeur à virgule flottante en précision étendue. Par exemple, le signe, l'exposant et la mantisse peuvent être changés séparément.
Dans Delphi sur Win32, le type de données Extended est de 10 octets. Toutefois, sur Win64, le type de données Extended est seulement de 8 octets. L'utilisation de TExtended80Rec sur Win64 vous permet d'effectuer des opérations associées à la mémoire avec des variables à virgule flottante sur 10 bits, mais pas des opérations arithmétiques en précision étendue.
Remarque :
- Pour manipuler un type de données à virgule flottante en précision étendue sur 80 bits, il est recommandé d'utiliser TExtendedHelper. Toutefois, TExtended80Rec n'est pas obsolète, et il est possible d'utiliser TExtended80Rec pour allouer des données Extended sur 80 bits.
- Depuis XE3, les propriétés TExtended80Rec.Bytes et TExtended80Rec.Words sont des propriétés tableau. Les opérateurs System.High et System.Low ne s'appliquent pas aux propriétés tableau. Vous pouvez utiliser à la place System.SizeOf, comme illustré dans l'exemple de TSingleRec.
Exemple
var
F: TExtended80Rec;
E: Extended;
I: Integer;
const
TAB = Chr(9);
begin
F := TExtended80Rec(-66.3);
Writeln('Sign: ' + TAB + TAB + IntToStr(Integer(F.Sign)));
Writeln('Exponent: ' + TAB + IntToStr(Integer(F.Exp)));
Writeln('Mantissa: ' + TAB + IntToHex(UInt64(F.Mantissa), 16));
// Subtract 1 from exponent
// This is equivalent with division by 2
F.Exp := F.Exp - 1;
E := Extended(F);
Writeln('Size of Extended: ' + TAB + IntToStr(SizeOf(E))); // displays 10 on Win32 and 8 on Win64
Writeln(FloatToStr(E)); // displays -33.15 (-66.3 / 2)
// ...
Sortie console si la taille de Extended est de 10 octets :
Sign: 1 Exponent: 16389 Mantissa: 849999999999999A Size of Extended: 10 -33.15
Sortie console si la taille de Extended est de 8 octets :
Sign: 1 Exponent: 16389 Mantissa: 8499999999999800 Size of Extended: 8 -33.15
La constante à virgule flottante "-66.3" est évaluée en précision 64 bits si la taille du type Extended est de 80 bits. Mais si la taille de Extended est de 64 bits, "-66.3" est évaluée seulement en précision 53 bits même si TExtended80Rec peut gérer les 64 bits. Cela explique pourquoi la mantisse et la fraction ont une différence.