fpcsrc/tests/tbs/tb0024.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ Old file: tbs0028.pp }
{  type enumtype = (a); writeln(ord(a)); }

type
   enumtype = (a);

var
   e : enumtype;

begin
   writeln(ord(e));
end.