type LongBool = Boolean attribute (Size = BitSizeOf (LongInt));
The intrinsic LongBool
represents boolean values, but
occupies the same memory space as a LongInt
. It is used when
you need to define a parameter or record that conforms to some
external library or system specification.
LongBool
is a Borland Pascal extension.
program LongBoolDemo; var a: LongBool; begin LongInt (a) := 1; if a then WriteLn ('Ord (True) = 1') end.