testet on Win and Darwin:
message:
!> Fatal exception of type RemObjects.Elements.System.Exception on thread 3CF3
!> Message: Unknown type for o
namespace TestEnumSizes;
{ $DEFINE DEFAULTSET}
type
tSimpleRange1 = 0…63;
tSimpleRange2 = 0…255;
tSimpleRange3 = 0…$FFFF;
eSimple = enum(first, second, third, fourth);
{$IF DEFAULTSET}
SimpleSet1 = Set of tSimpleRange1;
eSimpleSet = Set of eSimple;
{$ELSE}
SimpleSet1 = &Set<tSimpleRange3>;
eSimpleSet = &Set<eSimple>;
{$ENDIF}
type
Program = class
public
class method Main(args: array of String): Int32;
begin
// add your own code here
writeLn('The magic happens here.');
try
writeLn('Set<SimpleSet1>');
var myset1 : SimpleSet1 := [3,80];
writeLn(1 in myset1);
writeLn(3 in myset1);
writeLn('Set<eSimple>');
var myset2 : eSimpleSet := [eSimple.second , eSimple.fourth];
writeLn(eSimple.first in myset2);
writeLn(eSimple.fourth in myset2);
except
on E: Exception do
writeLn(E.Message);
end;
end;
end;
end.