[ < ] [ > ]   [ << ] [ Up ] [ >> ]         [Top] [Contents] [Index] [ ? ]

9.154 MedBool

(Under construction.)

Synopsis

 
type
  MedBool = Boolean (BitSizeOf (MedInt));

Description

Conforming to

Example

 
program MedBoolDemo;
var
  a: MedBool;
begin
  MedInt (a) := 1;
  if a then WriteLn ('Ord (True) = 1')
end.

See also



This document was generated by Frank Heckenbach on May, 10 2002 using texi2html