TSingleRec

Type
TSingleRec = packed record
private
  Bias = $7F;
  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..3] of Byte;
);
1: (
public
  Words : Array[0..1] of Word;
);
2: (
public
  Data : DWord;
);
3: (
public
  Value : Single;
);
end