TExtended80Rec

Type
TExtended80Rec = packed record
private
  Bias = $3FFF;
  function GetExp : QWord;
  procedure SetExp(e: QWord);
  function GetSign : Boolean;
  procedure SetSign(s: Boolean);
public
  function Mantissa(IncludeHiddenBit: Boolean) : QWord;
  function Fraction : Extended;
  function Exponent : LongInt;
  property Sign : Boolean;
  property Exp : QWord;
  function SpecialType : TFloatSpecial;
  procedure BuildUp(const \_Sign: Boolean; const \_Mantissa: QWord; 
                   const \_Exponent: LongInt);
case Byte of
0: (
public
  Bytes : Array[0..9] of Byte;
);
1: (
public
  Words : Array[0..4] of Word;
);
2: (
public
  \_Exp : Word;
  Frac : QWord;
);
3: (
public
  Value : Extended;
);
end