TExtended80Rec¶

type
  TExtended80Rec = packed record
    function Mantissa : QWord;
    function Fraction : Extended;
    function Exponent : LongInt;
    property Sign: Boolean; {rw}
    property Exp: QWord; {rw}
    function SpecialType : TFloatSpecial;
    procedure BuildUp;
    case Byte of
      0: (
        Bytes : Array[0..9] of Byte;
      );
      1: (
        Words : Array[0..4] of Word;
      );
      2: (
        _Exp : Word;
        Frac : QWord;
      );
      3: (
        Value : Extended;
      );
  end;