TDoubleRec

Type
TDoubleRec = packed record
private
  Bias = $3FF;
  function GetExp : QWord;
  procedure SetExp(e: QWord);
  function GetSign : Boolean;
  procedure SetSign(s: Boolean);
  function GetFrac : QWord;
  procedure SetFrac(e: QWord);
public
  function Mantissa(IncludeHiddenBit: Boolean) : QWord;
  function Fraction : ValReal;
  function Exponent : LongInt;
  property Sign : Boolean;
  property Exp : QWord;
  property Frac : QWord;
  function SpecialType : TFloatSpecial;
  procedure BuildUp(const \_Sign: Boolean; const \_Mantissa: QWord; 
                   const \_Exponent: LongInt);
case Byte of
0: (
public
  Bytes : Array[0..7] of Byte;
);
1: (
public
  Words : Array[0..3] of Word;
);
2: (
public
  Data : QWord;
);
3: (
public
  Value : Double;
);
end