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"
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel