Enumeration types

Enumeration types are supported in Free Pascal. On top of the Turbo Pascal implementation, Free Pascal allows the following C-style extension of the enumeration type.

Type
  EnumType = (one, two, three, forty := 40);

When specifying such an enumeration type, it is important to keep in mind that you should keep initialized set elements in ascending order. The following will produce a compiler error:

Type
  EnumType = (one, two, three, forty := 40, thirty:=30);

Remarks :

1. You cannot use the Pred and Succ functions on this kind of enumeration types. If you try to do that, you'll get a compiler error.
2. Enumeration types are by default stored in 4 bytes. You can change this behaviour with the {$PACKENUM } compiler directive, which tells the compiler the minimal number of bytes to be used for enumeration types. For instance

   Type 
     LargeEnum = ( BigOne, BigTwo, BigThree );
   {$PACKENUM 1}
     SmallEnum = ( one, two, three );
   
   Var S : SmallEnum;
       L : LargeEnum;
   
   begin
     Writeln ('Small enum : ',Sizeof(S));
     Writeln ('Large enum : ',SizeOf(L));
   end.

   will, when run, print the following:

   Small enum : 1
   Large enum : 4