TSingleRec¶

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