fpcsrc/tests/webtbf/tw9551b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %fail }

uses 
  TypInfo,sysutils;

type
  tmy2enum = (e1=20,e2,e3,e4);


procedure Test;
begin
  writeln(GetEnumName(TypeInfo(TMy2Enum), Ord(e3)));
end;

begin 
 Test;
end.