TDoubleRec

type TDoubleRec = packed record

public

  function Mantissa();

Mantissa of the floating point value.

  function Fraction;

Fraction of the floating point value.

  function Exponent;

Exponent of the floating point value.

  property Sign: Boolean; [rw]

Sign of the floating point value.

  property Exp: QWord; [rw]

Exponent bitpattern representation.

  property Frac: QWord; [rw]

Fractional part of double.

  function SpecialType;

Is the floating point value special ?

  procedure BuildUp();

Build a double value.

  case Byte of

    0: (

        Bytes: array [0..7] of Byte;

Value as bytes.

      );

    1: (

        Words: array [0..3] of Word;

Value as words.

      );

    2: (

        Data: QWord;

Value as QWord.

      );

    3: (

        Value: Double;

Value as Double.

      );

end;

TDoubleRec

Extended value record.

TSingleRec

Extended value record.