[fpc-devel] Abbrevia and Delphi compatibility

[Alexey Barkovoy]

>> 2) Sets with minimal size, at least with 1 and 2 bytes for replacement
>> of Byte and Word types.

This is already correctly working (at least in FPC 1.9.x). For example:

type
{$MINENUMSIZE 2}
  enumDMUS_VARIATIONT_TYPES = (
    DMUS_VARIATIONT_SEQUENTIAL       {= 0}, (* Play sequential starting with 
variation 1. *)
    DMUS_VARIATIONT_RANDOM           {= 1}, (* Play randomly. *)
    DMUS_VARIATIONT_RANDOM_START     {= 2}, (* Play sequential starting with a 
random variation. *)
    DMUS_VARIATIONT_NO_REPEAT        {= 3}, (* Play randomly, but don't play the 
same variation twice. *)
    DMUS_VARIATIONT_RANDOM_ROW       {= 4}  (* Play randomly as a row: don't 
repeat any variation until all have played. *)
  );

begin
  WriteLn(SizeOf(enumDMUS_VARIATIONT_TYPES));
end.

will write "2"