fpcsrc/tests/webtbs/uw4140.pp


1
2
3
4
5
6
7
8
9
10
11

unit uw4140;

interface

type
  TMyEnum = (meOne, meTwo, meThree);
  TMySubEnum = meOne .. meTwo;

implementation

end.