System.TDoubleRec
Delphi
TDoubleRec = packed record
private
aDouble: Double;
function InternalGetBytes(Index: Cardinal): UInt8; inline;
function InternalGetWords(Index: Cardinal): UInt16; inline;
procedure InternalSetBytes(Index: Cardinal; const Value: UInt8); inline;
procedure InternalSetWords(Index: Cardinal; const Value: UInt16); inline;
function GetBytes(Index: Cardinal): UInt8; inline;
function GetWords(Index: Cardinal): UInt16; inline;
procedure SetBytes(Index: Cardinal; const Value: UInt8); inline;
procedure SetWords(Index: Cardinal; const Value: UInt16); inline;
function GetExp: UInt64; inline;
function GetFrac: UInt64; inline;
function GetSign: Boolean; inline;
procedure SetExp(NewExp: UInt64);
procedure SetFrac(NewFrac: UInt64);
procedure SetSign(NewSign: Boolean);
public
function Exponent: Integer;
function Fraction: Extended;
function Mantissa: UInt64;
property Sign: Boolean read GetSign write SetSign;
property Exp: UInt64 read GetExp write SetExp;
property Frac: UInt64 read GetFrac write SetFrac;
function SpecialType: TFloatSpecial;
procedure BuildUp(const SignFlag: Boolean; const Mantissa: UInt64; const Exponent: Integer);
class operator Explicit(a: Extended): TDoubleRec; inline;
class operator Explicit(a: TDoubleRec): Extended; inline;
property Bytes[Index: Cardinal]: UInt8 read GetBytes write SetBytes; // 0..7
property Words[Index: Cardinal]: UInt16 read GetWords write SetWords; // 0..3
end deprecated 'Use TDoubleHelper';
C++
struct DECLSPEC_DRECORD TDoubleRec
{
private:
double aDouble;
Byte __fastcall InternalGetBytes(unsigned Index);
Word __fastcall InternalGetWords(unsigned Index);
void __fastcall InternalSetBytes(unsigned Index, const Byte Value);
void __fastcall InternalSetWords(unsigned Index, const Word Value);
Byte __fastcall GetBytes(unsigned Index);
Word __fastcall GetWords(unsigned Index);
void __fastcall SetBytes(unsigned Index, const Byte Value);
void __fastcall SetWords(unsigned Index, const Word Value);
unsigned __int64 __fastcall GetExp();
unsigned __int64 __fastcall GetFrac();
bool __fastcall GetSign();
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 Frac = {read=GetFrac, write=SetFrac};
TFloatSpecial __fastcall SpecialType();
void __fastcall BuildUp(const bool SignFlag, const unsigned __int64 Mantissa, const int Exponent);
static TDoubleRec __fastcall _op_Explicit(Extended a);
__property Byte Bytes[unsigned Index] = {read=GetBytes, write=SetBytes};
__property Word Words[unsigned Index] = {read=GetWords, write=SetWords};
};
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
record struct |
public | System.pas System.hpp |
System | System |
Beschreibung
Warnung: TDoubleRec ist veraltet. Bitte verwenden Sie SysUtils.TDoubleHelper.
Stellt die Unterstützung für die Bearbeitung von Gleitkommawerten mit doppelter Genauigkeit bereit.
Mit TDoubleRec können Low-Level-Operationen mit Gleitkommawerten mit doppelter Genauigkeit durchgeführt werden. Beispielsweise können das Vorzeichen, der Exponent und die Mantisse separat geändert werden.
Hinweis:
- Zur Bearbeitung eines Gleitkomma-Datentyps mit doppelter Genauigkeit sollten Sie TDoubleHelper verwenden. TDoubleRec ist aber nicht veraltet, und Sie können mit TDoubleRec Gleitkommadaten mit doppelter Genauigkeit zuweisen.
- Ab XE3 sind die Eigenschaften TDoubleRec.Bytes und TDoubleRec.Words Array-Eigenschaften. Die Operatoren System.High und System.Low können nicht für Array-Eigenschaften angewendet werden. Sie können stattdessen System.SizeOf wie in dem Beispiel unter TSingleRec verwenden.